Commodore Dossier Aktief ver- 
schijnt 12 keer per jaar. In fe- 
bruari, mei, augustus en novem- 
ber als bijlage in het hart van 
Commodore Dossier, in ‘de overi- 
ge maanden als losse uitgave 
uitsluitend voor abonnees van 
Commodore Dossier. 


pagina 1 
Met onder meer aandacht voor de 
PC-10, CBM-128, de naderende PC 
RAl en een wedstrijd voor school- 
gaande programmeurs. 


pagina 4 
Deze maand maar liefst 8 pagina's 
programmeer-adviezen van binnen- 
en buitenlandse deskundigen. Met 
onder meer de machinetaal-utility 
Disk-boot en een listing om een 
nieuwe karakterset voor de C-16 te 
maken. 


pagina 12 
Een adressenbestand van M. ledema 
uit Dokkum. 


pagina 15 
SOLO MISSION van Tony Crowther. 
Een ruimtevaartspel dat de gevorder- 
de gebruiker de mogelijkheid biedt 
om in te grijpen en eigen toevoegin- 
gen te maken. Ook leerzaam en on- 
derhoudend voor beginners. 


pagina 17 
Gratis kleine advertenties van en 
voor abonnees van Commodore 
Dossier. 


pagina 18 
Het belangrijkste nieuws van de ver- 
schillende gebruikersgroepen. Met 
onder meer data van belangrijke bij- 
eenkomsten. 








COMMODORE GEEFT PRIJS PRIJS 


mite, tan te 6 





Ze en bij Commodore Ne- 
derland de belangstellenden 
voor de nieuwe PC lang in 
spanning weten te houden over 
de exacte prijs van het appa- 
raat. Zelfs tijdens de groots op- 
gezette bijeenkomst voor pers 
en handelaren treuzelden de ver- 





Publiciteitsbureau Aspeslagh 
Communicatie uit Alphen aan 
den Rijn heeft van het ministe- 
rie van Onderwijs en Weten- 
schappen opdracht gekregen om 
een nationale wedstrijd te orga- 
niseren ter selectie van 8 jonge- 
ren voor deelname aan een 
EEG-week te Turijn in juli 
1985. De wedstrijd heeft als titel 
meegekregen MICRO MAS- 
TERS HOLLAND. Er zijn drie 
categorieën in de wedstrijd, te 


antwoordelijke mensen nog met 
die bekendmaking. Via een bij- 

na leuke pantomime-act werd de 
spanning uiteindelijk verbroken. 
Slechts f 5695,- exclusief BTW 

moet de nieuwe hoop van Com- 
modore gaan kosten. Inderdaad 
een zeer aantrekkelijke prijs, zij 


weten: programmatuur, toepas- 
sing en creatief. Programma's 
mogen alleen in Basic of Pascal 
zijn geschreven. Onder toepas- 
sing verstaat men muziekinstal- 
laties, robots en technisch speel- 
goed dat door een eigen compu- 
terprogramma wordt aan- 
gestuurd. Creatief zijn bijvoor- 
beeld spellen en computerkunst. 


De deelnemers moeten tussen de 
15 en 18 jaar zijn, nog op 


De Commodore PC-10 maakt de be- 
lofte waar. 


het dat het altijd nog veel duur- 
der is dan de 1200 dollar die het 
apparaat in Amerika moet 
kosten. Dat bedrag geldt dus 
voor de PC 10 met een RAM- 
geheugen van 256K en twee dis- 
kettestations à 360K. Later dit 
jaar zal Commodore de PC 20 
introduceren die over een dis- 
kettestation à 360K beschikt en 
bovendien over een harddisk 
van 1OMb. De prijs van deze 
machine zal pas in de loop van 
deze maand bekend worden 
gemaakt. 

Commodore stelt zich erg veel 
voor van de nieuwe PC. Direc- 
teur Rodenberg verstoutte zich 
zelfs te beweren dat men ver- 
wachtte met de nieuwe PC bin- 
nen 2 à 3 jaar een zelfde markt- 
aandeel te behalen als met de 
CBM-64.nu. De CBM-64 heeft - 
volgens Commodore — in Ne- 
derland een marktaandeel van 
55 procent. Om dat ambitieuze 
doel te bereiken gooit Commo- 
dore er alle marketingkracht te- 
genaan die ze in huis hebben. 


RO MASTERS HOLLAND 


school zitten, tenminste een 
vreemde taal spreken en zelf be- 
schikken over het materiaal dat 
nodig is voor de presentatie. 
Via landelijke voorrondes zullen 
tenslotte 125 kandidaten door 
kunnen dringen tot de finale, 
die op 27 april in de Rotterdam- 
se Ahoy zal worden gehouden. 
Nadere inlichtingen over de 
wedstrijd kunnen worden inge- 
wonnen bij het wedstrijdsecreta- 
riaat, telefoon 01720-92891. 





Uit uitlatingen tijdens de pers- 
conferentie vorige maand mag 
worden afgeleid dat Commodo- 
re grote haast maakt met de in- 
troductie van de langverwachte 
C-128, de wondermachine met 
drie ingebouwde processoren die 
als een heel belangrijk voordeel 
heeft dat alle software van de 
CBM-64 er op kan draaien. Bij 
Commodore spreekt men dan 
ook van een ‘opgewaardeerde 
64’, De reden voor die haast is 
ongetwijfeld de tegenvallende 
verkopen van de CBM-64 van 
de laatste tijd. Gefluisterd 
wordt dat Commodore met gi- 
gantische voorraden van die ma- 
__chine is blijven zitten omdat de 
eindejaars-verkopen zwaar zijn 
tegenvallen. In Amerika schijnt 
de machine dan ook gedumpt te 
worden. Momenteel wordt daar 
nog slechts 120 dollar gevraagd 
voor een CBM-64 en naar ver- 





De fraaie C-128, zeer binnenkort te verwachten. 


128 SNEL, LCD NIET? 


wachting zal die prijs zelfs nog 
onder de 100 dollar zakken. Dat 
dreigt te gaan lijken op het 
Texas Instruments-syndroom. 
Over de andere nieuwe machi- 
nes van Commodore blijft in- 
middels grote onduidelijkheid 
bestaan. Zo is het bijvoorbeeld 
nog helemaal niet zeker dat de 
LCD, de schootcomputer met 
het LCD-scherm, die Commo- 
dore Dossier signaleerde op de 
CES in Las Vegas, ook binnen 
afzienbare tijd bij ons zal wor- 
den geïntroduceerd. Een verte- 
genwoordiger van de Duitse 
vestiging wist zelfs al te melden 
dat een dergelijke machine hele- 
maal niet interessant is voor de 
Europese markt en dus niet zal 
worden geïmporteerd. Zo duide- 
lijk stelde de Nederlandse im- 
porteur het in elk geval niet, hij 
kende het apparaat echter ook 
nog alleen van de foto. 


TELEFONISTE OVERBELAST 


In het eerste Commodore Dos- 
sier sporen we onze lezers aan 
op het blad te reageren. Dat 
heeft telefoniste Anneke gewe- 
ten. Blijkbaar is de regel dat 
vragen over programma’s alleen 
schriftelijk kunnen worden 
beantwoord, door veel lezers 
niet helemaal begrepen. Een 
aantal lezers werd zelfs boos als 
Anneke niet naar de redactie 
wilde doorverbinden. Toch is 
daar een goede praktische reden 
voor. De redactie kan de 
stroom telefoontjes gewoon niet 
aan. 


Bovendien zijn veel vragen 
dermate specialistisch dat alleen 
de auteur ze kan beantwoorden. 
Het beste is en blijft het dus 
vragen schriftelijk te stellen. 

Wij kunnen dan de auteur in- 
schakelen als dat nodig is en die 
beantwoordt uw vragen zo snel 
mogelijk, dat wil zeggen meestal 
binnen een week. 

De eerlijkheid gebiedt ons overi- 
gens te zeggen dat veel proble- 
men al worden opgelost als de 
handleiding bij de listings goed 
wordt gelezen. Het staat er echt 
allemaal in. 


BELASTING-PERIKELEN 


Enige problemen met de diverse belastingprogramma'’s dit jaar. Over 
het programma dat bij Kluwers belastinggids kon worden aangeschaft, 
kunnen we ons geen oordeel vormen; ons exemplaar wilde niet starten. 
Het programma ‘Taks ’64’ startte wel, veelbelovend zelfs. Dat pro- 
gramma liet het ergens halverwege plotseling afweten en was toen niet 
meer voor- of achteruit te branden. En, ere wie ere toekomt, ook ons 
eigen belastingprogramma was niet echt vlekkeloos. De bedragen in de 
regels 4600 en 4660 zijn verwisseld, In regel 4600 moet het bedrag 10298 
dus 13200 zijn en in regel 4660 moet 13200 dan 10298 zijn. 

Slordig. Onze excuses daarvoor. Het pijnlijke van de affaire is dat het 
bewuste foutje in bepaalde gevallen geld zou kunnen kosten. Het nog 
eens nalezen van uw aangifte kan dus nuttig zijn. 


ZERO INTERFACE 


De firma Zero uit Ridderkerk (01804-30233) brengt een parallel printer 
interface op de markt die het mogelijk maakt elke centronics printer op 
de Commodores 64, 20, 16 en Plus/4 aan te sluiten. Centronics printers 
zijn onder meer de bekende merken Star, Epson, Brother, Juki en Sei- 
kosha. De interface neemt geen geheugen in beslag, hoeft niet geladen 
te worden en werkt met alle software. Als extra kan een 16K printerbuf- 
fer worden geleverd waarmee het mogelijk wordt tijdens het uitprinten 
van een bepaalde tekst of listing gewoon door te werken op de compu- 
ter. De interface kost in de winkel f 149,50 en de printerbuffer f 49,50. 


Beide bedragen zijn exclusief BTW. 


Zero parallel printer interface. 





COMMODORE DOSSIER 


OP PC RAI 


Van 20 tot en met 24 maart 
wordt in de Amsterdamse RAI 
de Personal Computer RAI ge- 
houden, een beurs over Perso- 
nal Computers. Volgens de or- 
ganisatoren viel er een gat tus- 
sen de Firato, waar vooral aan- 
dacht wordt besteed aan huis- 
computers, en de Efficiency 
beurs, waar microcomputers de 
hoofdmoot vormen. Maar huis- 
computers worden steeds vaker 
gebruikt voor zakelijke toepas- 
singen terwijl zakelijke compu- 
ters steeds meer functies krijgen 
die ook voor particulieren inte- 
ressant kunnen zijn. Vandaar 
dat men mogelijkheden ziet 
voor een beurs voor de consu- 
ment met als ruime specialisatie 
de Personal Computer. 
Overigens zal Commodore Dos- 
sier op de PC RAI prominent 
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aanwezig zijn met een eigen 
stand. Het juiste standnummer 
was bij het ter perse gaan van 
dit nummer nog niet bekend, 
maar u weet ons vast wel te vin- 
den. In elk geval is namelijk ze- 
ker dat we ons in dezelfde hal 
zullen bevinden als Commodore 
Nederland. Onze stand zal 
steeds bemand zijn met een aan- 
tal deskundigen die vragen kun- 
nen beantwoorden, maar lezers 
die alleen maar een praatje wil- 
len maken, zijn natuurlijk ook 
welkom. 

De tentoonstelling is dagelijks 
van 10 tot 17 uur geopend en 
op 20 en 21 maart van 10 tot 21 
uur. Normale toegangsprijs is 
10 gulden, kortingen zijn moge- 
lijk voor jeugdigen onder de 

12 en houders van een 65 + 

pas. 





TIPS EN TRUCS 


Maandelijkse rubriek met korte programma’s, routi- 
nes en utilities. KEA viezen van binnen- 


en buitenlandse pro 


essionals. Lezers helpen lezers. 


Het zijn de kleine dingen die het doen. Tips & trucs 
van lezers worden, indien geplaatst, beloond met 50 


gulden. 
NOTA BENE 


Alle programma’s op deze en de volgende pagina's zijn voorzien 
van onze checksum. Die is te herkennen aan het voorvoegsel 
(shift)/(spatie). Deze twee woorden moet u dus niet intikken, maar u 
dient tegelijkertijd de shift-toets en de spatiebalk in te drukken. 

Op het scherm ziet dat er uit als een gewone spatie. Daarna voert 
u het feitelijke controle-getal in. Het cheeksum-programma, dat er 
voor zorgt dat uw computer ook iets begrijpt van het ingevoerde 
controle-getal, vindt u in Commodore Dossier 1. 


DISK-BOOT 
Een machinetaal utility voor de 
CBM-64 door Marcel van 
Valen. 

Iedereen die een tijdje met de 
1541 diskdrive gewerkt heeft, 
kent het probleem: u wilt een 
programma laden maar bent 
vergeten of het ”’sprite maker 
64°’ of ”spritemaker-64”’ heette. 
Of was het nou toch. U laadt 
dus maar de directory in 
(LOAD ”$”’,8) en LIST deze 


vervolgens. Maar op de schijf 
staan zoveel programma’s dat 
de gewenste naam al van het 
scherm is verdwenen voordat u 
de stop-toets heeft kunnen in- 
drukken. Opnieuw listen maar 
weer. Nu heeft u eindelijk het 
gezochte programma gevonden. 
U zet de cursor op de juiste 
plaats, tikt LOAD voor de pro- 
grammanaam en „8 er achter. 
Nu geeft u een return en wacht 


2049 to 2707<shiftd/<spatiedba6 
poke x‚„ig<shiftd/<spatied26 


printchr$(147);s<shiftd/{éspatie>da 
print"poke 43,1:poke44,8:poke45,148:poke46,lO:clr"<shiftd/<spatied43 


DISK-BOOT 

100 for x= 

120 read is: 

130 next<shiftd/<spatie>00 
140 

150 

160 


op het snorrende geluid van de 
diskdrive die uw programma in- 
laadt. Helaas, u bent de dubbe- 
le punt achter „8 vergeten en u 
ziet ergens temidden van de 
puinhoop waarin de directory 
inmiddels is veranderd die geha- 
te woordjes SYNTAX ERROR 
staan. Nog maar eens proberen 
dus. 

Met het onderstaande program- 
ma DISK-BOOT behoort deze 
ergernis voorgoed tot het verle- 
den. Het programma dient op 
al uw diskettes te worden opge- 
nomen. Het is erg kort zodat er 
op de meeste diskettes wel 
plaats voor zal zijn. DISK- 
BOOT laadt de directory in en 
toont u vervolgens de program- 
ma’s die op de schijf staan. Al- 
leen prg-files worden getoond, 
wat de zaak bijzonder overzich- 
telijk maakt. U kunt het ge- 
toonde programma laden, ver- 
der zoeken, een andere schijf 
bekijken of nogmaals dezelfde 
directory doorlopen. Door de 
menu-structuur is DISK-BOOT 
makkelijk te bedienen en omdat 


poke631,19:poke632,13:poke1l98,2Z:endéshiftd/éspatiedaa 


het programma helemaal in ma- 
chinetaal is geschreven, werkt 
het erg snel. 

Voordat u begint met het intik- 
ken van het programma, moet u 
de volgende regel in direct mode 
intoetsen: 

POKE 43,1: POKE 44,96: 
POKE 6*4096,0: NEW 

Hiermee wordt het begin van 
Basic verhoogd. Het programma 
zou zich anders zelf overschrij- 
ven. Nadat het programma ge- 
heel correct is ingetoetst, kunt u 
het RUNnen. DISK-BOOT ver- 
plaatst zichzelf nu naar het nor- 
male begin van Basic en kan 
worden weggeschreven met de 
opdracht SAVE ”DISK- 
BOOT”’,8. Uiteraard kunt u het 
programma ook een andere 
naam geven. Na het succesvol 
laden van het programma, kunt 
u het uitproberen. Tik: 
”LOAD”DISK-BOOT”’,8: 
(denk om de dubbele punt aan 
het eind!) en druk de SHIFT- 
toets en de RUN/STOP-toets 
tegelijkertijd in. Verder gaat 
dan alles vanzelf. 


32000 datal3,8,10,0,158,40,50,48,54,51,41,0,0,0,76,91,8,162,8,160,0,32,186,255<5 


hiftd/{spatiebdef 


32001 datal69,1,162,44,160,8,32,189,255,169,0,166,253,164,254,32,213,255,96,36s 


hift>/<spatiede7 


32002 datal60,0,177,251,240,11,32,210,255,230,251,208,243,230,252,208,239,96<shi 


ft>/{<spatiede7 


32003 datal60,0,176,1,152,166,251,228,253,208,6,166,252,228,254,240,10,145,251<s 


hift>/<spatiedf4 


32004 data230,251,208,238,230,252,208,234,96,169,0,141,32,208,141,33,208,169shi 


ft>/<spatiede7 


32005 datat47,32,210,258,169,14,32,210,255,76,235, 8169, 32, 162, tb 10739, 420205 


hift>/<spatiede3 


32006 data208,250,96,169,0,133,251,133,253,169,16,133,252,169,34,133,254,24,32{s 


hift>/{spatiedf7 


32007 data63,8,96,169,0,133,253,169,16,133,254,76,18,8,24,165,253,105,32,133<shi 


ft>/<spatiede3 


32008 data253,165,254,105,0,133,254,160,30,177,253,201,1,240,2,56,96,160,22,177% 


shift>/<spatiedd4 


32009 data253,170,200,224,32,240,248,201,80,208,219,160,0,200,177,253,201,34éshi 


ft>/<spatieje9 


32010 data208,249,32,112,-8;169;19,32,210,255,169,17,32,210,255,169,5, 162,255 451 


ft»>/<spatie>f8 


32011 data32,210,255,200,232,177,253,157,65,3,201,34,208,242,142,64,3,24,96,32{s 


hift>/{<spatiedea 


32012-datal23,8,32,142;8,32,103,8,176581,169,136, 133, 251,169,9,133,252,32,45 shi 


ft>/{Xspatiedea 
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32013 data8,32,228,255,168,192,76,240,76,168,192,83,240,7,168,192,13,208,238{shi 


ft>/{spatie>f8 


32014 data240,220,169,228,133,251,169,9,133,252,32,45,8,32,228,255,168,192,79<sh 


ift>/{<spatiedce 


32015 data208,11,169,0,133,253,169,16,133,254,76,241,8,168,192,65,208,21,169{shi 


ft>/<spatie>fd4 


32016 data84,133,251,169,10,133,252,32,45,8,32,228,255,201,13,208,249,76,235<shi 


ft)»/{spatiedec 


32017 data8,168,192,82,208,206,76,248,252,169,133,133,251,169,10,133,252,32, 455 


hift>/{spatiedef 


32018 data8,162,0,189,65,3,32,210,255,232,236,64,3,208,244,169,141,133,251, 1695 


hift>/Cspatiedf3 


32019 data10,133,252,32,45,8,169,19,141,119,2,169,13,141,120,2,169,2,133,1984shi 


ft>/{<spatiedfl 


32020 data96,19,152,18,68,73,84,32,80,82,79,71,82,65,77,77,65,32,76,65,68,69{shi 


ft>/{spatie>dfb 


32021 data78,63,13,13,18,32,32,32,32,32,32,76,32,61,32,76,65,68,69,78,32,32,32€s 


hift>/Xspatiedeb 


32022 data32,32,13,18,32,82,69,84,85,82,78,32,61,32,90,79,69,75,69,78,32,32,32<s 


hift>/{<spatiedef 


32023 data32,13,18,32,32,32,32,32,32,83,32,61,32,83,84,79,80,80,69,78,32,32,32<s 


hift>/<spatiede7 


32024 datal46,0,19,150,18,32,32,69,73,78,68,69,32,68,73,82,69,67,84,79,82,89shi 


ft>/éspatie>ff 


S2025 data32,82,32,13,32,32,82,32, 32 32,3232,32, 32 BAIN AS 


hift>/éspatiedeS5 


32026 data32,13,18,32,32,79,32,61,32,79,80,78,73,69,85,87,32,32,32,32,32,32,32<s 


hift>/<spatiede6 


32027 datal3,18,32,32,65,32,61,32,65,78,68,69,82,69,32,83,67,72,73,74,70,32,13{s 


hift>/éspatiedef 


32028 datal8,32,32,82,32,61,32,82,69,83,69,84,32,32,32,32,32,32,32,32,32,146<shi 


ft>/{spatiedf5 


32029 data0,147,18,28,90,73,84,32,83,67,72,73,74,70,32,73,78,32,68,82,73,86,69s 


hift>/<spatiebde7 


32030 data63,13,13,18,32,68,82,85,75,32,82,69,84,85,82,78,32,32,32,32,32,32,32{s 


hiftò/<spatiede7 


32031 data32,146,144,0,147,144,76,79,65,68,34,0,34,44,56,44,49,154,O0Xshift>/{éspa 


tiejed 


INHOUD 


GEHEUGENPLAATSEN 


Het kan in bepaalde gevallen 
handig zijn om de inhoud van 
een aantal geheugenplaatsen in 
decimalen op het scherm te to- 
veren. Met de volgende pro- 
grammaregel, die in de direct 
mode kan worden ingetoetst, is 
dat een koud kunstje. 

FORX =[startadres, bijvoor- 
beeld 2049]TOl[eindadres, bij- 
voorbeeld 


3000]:PRINTX,PEEK(X): 
WAIT653,1:NEXT 

Na het indrukken van RETURN 
krijgt u de inhoud van de eerste 
geheugenlokatie op het scherm. 
Door nu op SHIFT te drukken, 
krijgt u de inhoud van de vol- 
gende geheugenplaats. Zo kunt 
u verder gaan totdat u alle door 
u gevraagde geheugenplaatsen 
heeft 'afgewerkt’. 


FOUTMELDING 
VAN DISKDRIVE 


Wat is er aan de hand als het 
rode lampje van de diskdrive 
knippert en er niet gebeurd wat 
er zou moeten gebeuren? Het 
volgende programma geeft u 
een foutmelding op het scherm. 


10 OPEN1,8,15:INPUT#L,A,BS, 
C,D:PRINTA,BS,C,D:CLOSEI 


Het eerste getal geeft het num- 
mer van de foutmelding aan. 
De twee laatste getallen geven 


respectievelijk de track en de 
sector aan waar iets is fout- 
gegaan. 


Bovenstaande routine kunt u 
uiteraard ook gebruiken in een 
programma. Door op het eerste 
getal te testen (in ons geval is 
dat een A) kunt u de foutbood- 
schappen eventueel vervangen 
door een Nederlandstalige ver- 
sie, die u dan op het scherm 
print. 


MOGELIJKHEDEN VAN DE 
CONTROL-TOETS 


Iedereen heeft van tijd tot tijd 
wel moeilijkheden met de ver- 
maledijde besturingstekens van 
Commodore, Vaak is het een 
geweldig gezoek om de juiste 
combinatie van toetsen te vin- 
den die het gewenste bestu- 
ringsteken op het scherm 
brengt. Voor sommige van de 
besturingstekens bestaan een- 
voudiger alternatieven. 
CONTROL + R doet hetzelfde 


als CONTROL + RVS ON 
CONTROL + S doet hetzelfde 
als SHIFT + HOME 
CONTROL + M is hetzelfde 
als RETURN 

CONTROL + Q geeft een 
CURSOR DOWN 

Zo zijn er nog wel meer combi- 
naties, maar ze zijn niet alle- 
maal even nuttig. Bovenstaande 
kunnen u echter misschien wat 
tijd besparen. 


WISSEN ONMOGELIJK 


Voor programmeurs is het inter- 
essant om een paar regels, bij- 
voorbeeld die met de copyright 
statements, tegen wissen te be- 
veiligen. Dat is mogelijk door 
gebruik te maken van zeer hoge 
regelnummers, die niet meer ge- 
wist kunnen worden. Die regels 
kunnen overigens ook niet zon- 
der meer worden ingevoerd, dus 
daarom is een kleine omweg 
noodzakelijk. 

Als allereerste programmaregel 
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voert u in: 


0 rem copyright [uw naam] 
1985 


Vervolgens toetst u in: 

POKE 2051,255:POKE2052,255 
Als u nu LIST, ziet u dat het 
regelnummers 0 is veranderd in 


65535 en die regel is niet meer uit 
te wissen. Tenzij natuurlijk. 








TIPS EN TRUCS 


NIEUWE KARAKTERSET 


VOOR DE C-16 


De nieuwe C-16 beschikt over 
bijna 32K ROM-geheugen. Hier- 
van wordt 4K gebruikt om de 
lettertekens te ‘tekenen’, De ge- 
gevens hiervoor bevinden zich in 
het gebied van 53248 tot en met 
57343. De inhoud van dit stuk 
geheugen bepaalt hoe de letter- 
tekens er op het scherm uitzien. 
Dat werkt als volgt. 

Een karakter bestaat uit 8 rijen, 
die elk 8 zogenaamde pixels of 
beeldpunten bevatten. Een pixel 
kan aan of uit staan, waarbij 
aan betekent dat u de betreffen- 
de pixel op het scherm kunt 
zien. Voor de letter A zien de 
acht rijen er als volgt uit. 


dek, , 


RAI 


Elke rij beschikt dus over 8 
pixels. Nu kunnen we iedere 


NIEUWE KARAKTERSET C16 


O rem XxkRoelf Sluman 


punt van een rij een aparte 
waarde geven waardoor we elke 
pixel naar believen uit of in 
kunnen schakelen. Dat werk als 
volgt. 


128 64 32 168421 

“ Kk kok ok 

We geven de meest linkse pixel 
een waarde van 128 en vervol- 
gens delen we die waarde steeds 
door 2 totdat we bij 1, de meest 
rechtse pixel uitkomen. Voor de 
letter A krijgen we dus voor de 
eerste rij pixels de volgende 
waarden. 

pixel 1 (128) is uit 

pixel 2 (64) is uit 

pixel 3 (32) is uit 

pixel 4 (16) is aan 

pixel 5 (8) is aan 

pixel 6 (4) is uit 

pixel 7 (2) is uit 

pixel 8 (1) is uit 


We zien dat er twee pixels zijn 
ingeschakeld. Deze komen over- 
een met de getallen 16 en 8, sa- 
men 24. Het getal 24 bepaalt 
dus het aantal pixels voor de 
bovenste rij van de letter A. 


1985 %%x 


Voor de overige 7 rijen gaan we 
op dezelfde manier te werk, 

U kunt nu op bovenstaande ma- 
nier de waarden voor de overige 
rijen uitrekenen en deze vergelij- 
ken met de ROM-waarden voor de 
C-16, Deze ROM-waarden zijn: 
24, 36, 66, 126, 66, 66, 66, 0 
Deze waarden mocten hetzelfde 
zijn als de uitkomsten van uw 
berekeningen. 

Met behulp van bovenstaande 
informatie is het mogelijk om 
de karakterset geheel naar uw 
eigen wensen aan te passen. U 
kunt de letters veranderen in al- 
les wat u maar wilt, door een- 
voudigweg de pixels per rij aan 
en uit te zetten. 

Maar omdat de lettertekenset 
van de C-16 zich in het ROM- 
geheugen bevindt, dat per defe- 
nitie ontoegankelijk is, moeten 
we eerst zorgen dat de set in het 
RAM-geheugen terecht komt. 
Dat kan op twee manieren, 
door de huidige ROM-set naar 
RAM te verhuizen of door zelf 
een karakterset in RAM te 
maken. 

Het programma hieronder 
maakt gebruik van de tweede 
mogelijkheid. Door de listing in 


te tikken en te runnen, veran- 
dert u de karakters van de C-16 
in een zogenaamde ‘custom-set’. 
Deze karakterset bevindt zich in 
RAM; hij verdwijnt dus weer 
als u de computer uitschakelt, 
Mocht u tijdens het runnen van 
het programma rare dingen zien 
gebeuren op uw scherm, dan is 
dat waarschijnlijk het gevolg 
van een error in een van de pro- 
grammaregels. U kunt dan het 
beste de RUN/STOP-toets inge- 
drukt houden en een RESET 
geven (de knop daarvoor be- 
vindt zich aan de rechterzijkant 
van de machine). U komt dan 
in de MONITOR terecht. Door 
nu X en RETURN te toetsen, 
komt u weer terug in Basic, ter- 
wijl het programma nog in de 
computer aanwezig is. Als u nu 
op HELP drukt, krijgt u de 
fout knipperend op het scherm 
te zien waarna u hem kunt ver- 
beteren. 

In een van de volgende afleve- 
ringen gaan we nog wat nader 
in op de mogelijkheden van 
custom karakters. Aarzel echter 
niet om zelf te experimenteren 
met het onderstaande pro- 
gramma. 


poke51,0:poke52,60:clr:iprintchr$(147)dchr$Cidchrs$C(5l"een ogenblik a.u.b.” 
color 0,6 21cdlord,6,6 


forx=Oto5li 


reada:poKkel5360+x,a:poke1l5872+x,a:b=btarnext 


ifb<>30037thenprintchr$(i9)" fout 


poke65298,peek(65298land251 


poke65299,60 


printehr$(147)chrs (8) 


color 0,40,2ieolor4, 10,;4tcolor. 1,86 
printehesCiDehrs 19) 


pe lat” 
print 


ü beschikt. au over een” 
nieuwe” 


Karakterset." 


in data-regels!" 


:stop 


data 060,102,110,110,096 
data 098,060,000,000,000 
data 120,028,124,236,126 
data O00,192,096,096,124 
data 102,102,124,000,000 
data 000,060,102,096, 102 
data 060,000,006,012,012 
data 124,204,204,124,000 
data 000,000,060,102,126 
data 096,060,000,000,014 
data 024,062,024,024,048 
data 000,000,000,126, 204 
data 204,124,012,056, 192 
data 096,096,124,102,102 
data 198,000,000,024,000 
data 024,024,090,126,000 
data 000,006,000,014,006 
data 054,102,060,192,096 
data 102,108,120,108,198 
data 000,048,024,024,024 
data 024,024,012,000,000 


ATTENTIE, ATTENTIE 


Door de onverwacht grote belangstelling zijn de programma’s Simon’s 
Basic, Assembler en Pilot/Logo uitverkocht (zie Commodore Dossier 1, 
pagina 27). Bestellen is dus helaas niet meer mogelijk. 





COMMODORE DOSSIER AKTIEF 6 





000,198,238,254,214 
198,000,000,000,252 
102,102,102,198,000 
000,000,060,102, 102 
102,060,000,000,000 
124,102,102,124,036 
192,000,000,124, 204 
204,124,012,006,000 
000, 108,120,096, 096 
192,000,000,000,060 
112,060,014,060,000 
048,024,126,024,024 
024,024,012,000, 000 
198, 102, 102, 102,062 
000,000,000, 198, 108 
108,056,016,000,000 
000,130,214,124, 124 
108,000,000,000, 102 
126,024,126,102,000 
000,000,198,102,102 
062,012,056,000,000 
126,108,024,054, 126 
000,060,048,048,048 
048,048,060,000,000 
000,126,108,024,054 
126,000,060,012,012 
012,012,012,060,000 
000,024,060,126,024 
024,024,024,000,016 
048,127,127,048,016 
000,000,000,000,000 
000,000,000,000, 255 
060,024,024,000,024 
024,000,102,102,102 
000,000,000,000,000 
tO2, 102, 255,.102,255 
102,102,000,024,062 
096,060,006, 124, 024 
000,098,102,012,024 
048,102,070,000,060 
102,060,056,103,102 
063,000,006,012,024 
000,000,000,000,000 
012,024,048,048,048 
024,012,000,048,024 
012,012,012,024,048 
000,000,102,060,255 
060,102,000,000,000 
024,024,126,024,024 
000,000,000,000,000 
000,000,024,024,048 
000,000,000,126,000 
000,000,000,000,000 
000,000,000,024,024 
000,000,003,006,012 
024,048,096,000,056 
108,108,108,108, 108 
056,000,024,056, 248 
024,024,024,060,000 
120,204,204,056,096 
204,252,000,060, 102 
102,012,102,102,060 
000,012,028,124,204 
254,012,030,000,126 
096,124,006,054, 102 
060,000,060, 102, 192 
252,230,102,060,000 
126,198,012,024,024 
024,012,000,056, 108 
108,056,108,108,056 
000,120,204,204, 124 
012,204,120,000,000 
000,024,000,000,024 
000,000,000,000,024 
000,000,024,024,048 
Ol4,024,048,096, 048 
024,014,000,000,000 
126,000,126,000,000 
000,112,024,012,006 
012,024,112,000,060 
102,054,012,024,000 
024,000 
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TIPS EN TRUCS 


GEHEUGEN SAVEN 


Onderstaande routine maakt het 
mogelijk om een deel van het 
geheugen weg te zetten op cas- 
sette of disk. In dit geheugen 
kunnen zich bijvoorbeeld sprites 
of karaktersets bevinden, die 
dan later weer kunnen worden 
ingeladen. De routine is vooral 


FILESAVER 


handig voor degenen die geen 
monitor bij de hand hebben. Er 
wordt in het programma eerst 
om een naam gevraagd, dic ge- 
POKEd wordt in een ongebruikt 
gedeelte ($02A7 en verder). Ver- 
volgens wordt er om een device 
(tape of disk) gevraagd en om 


een begin- en eindadres. Deze 
adressen moeten decimaal en 
dus niet in hex worden inge- 
voerd. De routine maakt ge- 
bruik van drie kernal subrouti- 
nes: SETLFS, SETNAM en SA- 
VE. Deze routines kunnen va- 
nuit Basic worden aangeroepen 


O rem filesaver Akkroelf sluman 1985xkxéshift>/Sspatie>85 


10 


t>/<spatie>7d 
100 
110 
120 
130 
140 
150 
160 
170 
180 


rem 780=a;578l=x5782=y{<shiftd/<spatiedocd 
input” filenaam"sa$é<shift>/<spatiebca 
forx=ltolen(as):poke678+x,asc{mids(as,x,ldd:inext<shiftd/<spatiedb5 
print"tape of disk (t/d)"<shiftd/<spatiedb3 
poke198,OCshiftd/{‘spatie>89 
getq$:ifgs<>”"t'andgs<>"d"then60<shiftd/{éspatie>47 
ifgq$="d"thenpoke781,8:;goto9Oshiftd/{<spatiedee 

poke781,1<shift>/{spatieded4 
print”startadres (decimaal)"s:inputs<shiftd/<spatied3e 
print"eindadres (decimaal)"s:inpute:rife<=sthenprint" foutieve 


save":zend{shift>/{spatieba0 


SPRITES BEWEGEN MET MACHINE TAAL 


Met behulp van onderstaande 
machinecode-routine wordt het 
over het scherm bewegen van 
sprites op de CBM-64 een klei- 
nigheid. Er hoeft geen rekening 
meer te worden gehouden met 
de X-grens, dat lastige POKEn 
in register 53264, en de sprites 
zijn met zeer grote snelheid over 
het scherm te bewegen. 

De routine wordt door middel 
van DATA gePOKEd in het ge- 
heugengebied vanaf $CO00 (de- 
cimaal 49152). De machinecode- 
routine wordt geactiveerd door 
een SYS naar 49152, Er wordt 
echter nog naar een paar varia- 


SPRITE MOVE 


belen gevraagd, zodat een SYS 
er als volgt uitziet: 

SYS 49152, [al,[b],[c] 

[a] bevat het spritenummer, van 
0 tot 7. 

[b] bevat het aantal punten dat 
de sprite in de x-richting moet 
worden verplaatst, van 0 tot 
127, Als u een getal van 255 tot 
128 invoert, beweegt de sprite in 
tegengestelde richting. Dus het 
getal 1 beweegt de sprite een 
punt naar rechts en het getal 
255 beweegt de sprite een punt 
naar links. 

[c] bevat het aantal punten voor 
de verplaatsing in de y-richting. 


Hiervoor gelden dezelfde voor- 
waarden als bij [b]. 

Om sprite O dus twee punten 
naar rechts te laten bewegen, 
geeft u het volgende 
commando: 

SYS 49152,0,2,0 

Voor het schuin naar linksboven 
laten bewegen van sprite num- 
mer 3, vier punten tegelijk, 
kunt u volstaan met: 

SYS 49152,3,252,252 

Het programma hieronder bevat 
naast de Basic-loader voor het 
machinecode-programma ook 
nog een korte demo, waarin u 
kunt zien hoe de routine ge- 


O rem «sprite move %X roelf sluman 1985x{shift>/{<spatiede2 


5 rem machinecode 
10 fori= 
20 reada: 
100 data 
105 data 
110 data 
115 data 
120 data 
125 data 
130 data 
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initialiseren<shift>/{<spatie>9a 
49152 to 49356{<shift>/<spatie>d2 
pokei,a:next{<shift>/<spatiede3 

076,178,192,001,001{<shift>/éspatiedd2 
000,000,001,032,142Xshift>/{<spatie>dd 
003,192,140,004,192<shift>/<spatieddf 
170,010,168,142,005{shift»/{Xspatiedca 
192,169,001,141,007<shift>/<spatiedcd 
192,173,016,208,141l4shift>/{spatiedc8 
006,192,224,000,240Xshift>/{spatie»3f 


als de inhoud van de drie be- 
langrijkste 6500-registers (A, X 
en Y) in geheugenplaatsen 780, 
781 en 782 worden gePOKEd. 
Zo kunt u dus ook vanuit Basic 
gebruik maken van de kernal. 


invoer":sruné<shif 


poke780,0:poke782,255:sys65466rremsetlfséshiftd/<spatie>63 
poke780,len(a$):poke781,167:poke782,2:sys65469Xshiftd/éspatiedd0 
a=s:gosubl80:poke251l,al:poke252,a2<shiftd/<spatie>56 
a=e:gosubl80O:poke78l,al:poke782,a2<shift>/éspatiedba 
poke780,251<shift>/{<spatie>3e 
sys65496shiftd/<spatied30 
ifst=Othenprint”"geen errors":zend<shiftd/{<spatied08 
print“error opgetreden bij 
a2=int(a/256):alz=a-a2k256:return<shiftd/<spatied54 


bruikt wordt. Met behulp van 
de FILESAVER die elders in 
deze rubriek staat afgedruk, 
kunt u de SPRITE MOVE rou- 
tine saven. Het tijdrovende PO- 
KEn van DATA blijft u dan 
bespaard. 

Voor het saven van SPRITE 
MOVE dient u het volgende te 
weten: 


beginadres = 49152 


eindadres = 49357 

We hopen dat u deze nuttige 
routine met veel plezier in uw 
eigen programma’s kunt ge- 
bruiken. 








135 data 009,078,006,192,014éshift>/{spatie>3b 
140 data 007,192,202,208,247Xshift>/{spatied39 
145 data 169,001,045,006,192éshift>/{spatie»20 
150 data 141,006,192,174,005<shift»/éspatied2a 
155 data 192,173,003,192,0i6éshift>/{spatie>29 
160 data 030,173,003,192,032<shift>»/{<spatie)> ld 
165 data 156,192,141,003,192<shift»/<spatie»l3 
170 data 056,185,000,208,237&shift>»/{<spatiedia 
175 data 003,192,153,000,208&«shift>/Sspatie>18 
180 data 173,006,192,233,000&<shnift>/<spatie>0c 
185 data 141,006,192,076,109&shiftd/{spatie>0b 
190 data 192,024,185,000,208éshiftd/{<spatied07 
195 data 109,003,192,153,000<shiftd/{<spatie»76 
200 data 208,173,006,192,1054shift>/<spatie>7c 
205 data 000,141,006,192,224éshift>/<spatied>72 
210 data 000,240,006,014,006<shift>/éspatie>62 
215 data 192,202,208,250,173éshift>/{<spatie»66 
220 data 006,192,240,009,013<shiftd/{<spatiedbe 
225 data O16,208,141,016,208&shift>/<spatie>56 
230 data 076,144,192,169,255{Xshiftd/{spatie»53 
235 data 077,007,192,045,016{shift>/{spatie>53 
240 data 208,141,016,208,200<shift»>/<spatied42 
245 data 024,173,004,192,121<shiftd/<spatie»d49 
250 data 000,208,153,000,208Xshift>/<spatiedde 
255 data 096,024,073,255,105<shift»/<spatie>d47 
260 data 001,096,032,138,173&shiftd/éspatie>b6 
265 data 032,247,183,165,021éshiftd/<spatiedb0 
270 data 208,003,165,020,096&shift>/<spatie>ba 
275 data 076,072,178,032,253éshift>/{spatiedae 
280 data 174,032,162,192,072Xshift>/<spatieda3 
285 data 032,253,174,032,162{<shift»/<spatiedac 
290 data 192,072,032,253,174<shift>/<spatie>98 
295 data 032,162,192,168,104X<shiftd/<spatied9l 
300 data 170,104,076,009,192{shift»/{spatie>9f 
310 :<shift>/<spatie>Od 

320 :<shift>/<spatie)7b 

330 :<shift>/<spatie>71 

1000 rem Xxxxdemonstratie-programmakkktshift»/<spatie»i0 
1010 forx=Oto63:poke832+tx, 25S:next{shiftd/{éspatiedch 
1020 poke53248,50:poke53249,50:poke53264,0:poke53269,1:poke53287,1:poke2040, 13s 
hift>/{<spatie>c6G 

1030 :<shift>/<spatie>d38 

1040 :&shift>/<spatie>2Ze 

1050 rem kxxhier volgt de demoxxx<shiftd/{spatiedc3 
1060 forx=lta250éshift>/{<spatiedeg 

1070 sys49152,0,1,0Sshift>/<spatie>92 

1080 nextx{éshiftd/éspatiede6 

1090 forx=ito75<shiftd/éspatie>dba 

1100 sys49152,0,0,2<shiftd/<spatie>f3 

1110 nextxéshiftd/{spatie>88 

1120 forx=ltol25<shift»/<spatiedac 

1130 sys49152,0,254,0<shift>/<spatie>d4 

1140 nextxé<shiftd/{Xspatiedaa 

1150 forx=ito7b<shift>/{<spatied86 

1160 sys49152,0,0,254<shift>/{spatie>36 

1170 nextx<shift>/{<spatiedd4c 

1180 forx=itol00OXshift>/<spatied57 

1190 sys49152,0,2,2<shift>/<&spatie>lb 

1200 nextx<shift>/<spatied6e 

1210 forx=itoi0Olshiftd/éspatied71 

1220 sys49152,0,254,254<shift»/<spatie>79 

1230 nextx{<shiftd/{<spatied10 

1240 gotol060Xshift»/éspatie>52 


RAADSELACHTIGE ERROR? 


De meeste Commodore- ten op, zelfs zonder dat er een op de ready-regel staat. De geheugen zitten, geeft de com- 
gebruikers zijn tijdens het pro- programma wordt gerund. De computer leest de ready- puter dus een ’OUT OF DATA 
grammeren wel eens de vreemde verklaring ervoor is eigenlijk erg boodschap dan namelijk als ERROR’. 


’OUT OF DATA ERROR’ te- simpel. De error treedt namelijk READ Y, oftewel: zoek een 
gengekomen. Deze error duikt altijd op als er op RETURN DATA en berg die op in Y. Als 
soms op de vreemdste momen- wordt gedrukt terwijl de cursor er geen DATA-statements in het 
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TIPS EN TRUCS 


HET GEMAK DIENT DE GEBRUIKER 


Het zijn de kleine dingen die het hem doen, volgens Peter Gerrard. 
Hij stelt voor om eerst de kleine programmeerproblemen voor de 
Commadore 64 te lijf te gaan voordat de echt grote problemen aan 


de orde komen. 


Een van de grootste problemen 
voor elke Commodore 64-bezit- 
ter is het ontbreken van Basic- 
opdrachten die hem in staat 
stellen het beeldend vermogen 
en de geluidskracht van de 
Commodore optimaal te gebrui- 
ken. Dit is een bekende makke 
van de machine en daar is dan 
ook in het verleden al de nodige 
kritiek op geweest. 

Er zijn echter kleinere proble- 
men die met wat handigheid wel 
snel uit de weg te ruimen zijn. 
Een paar van die kleinere pro- 
blemen komen in dit artikel aan 
de orde. 


INPUT 

Een bekend probleem in het 
Commodore-Basic is de INPUT- 
opdracht. Het gaat als volgt: 

10 INPUTAS, of 

10 INPUT ”UW NAAM 
AUB”’;A$. 

In slecht geschreven program- 
ma’s kan zo’n regel problemen 
veroorzaken. Als de gebruiker 
per ongeluk of met opzet slechts 
de Return-toets indrukt en dus 
niet zijn naam of iets anders in- 
vult, dan staat er een zoge- 


naamde null-string in A$ en dat 
kan later in de loop van het 
programma de nodige ellende 
opleveren. Daar kun je natuur- 
lijk wel wat aan doen. Je kunt 
aan regel 10 de volgende regel 
toevoegen: 

20 IE A$=""THEN"TYPE 
IETS IN!””:GOTO 10. 

Dat is natuurlijk geen al te 
fraaie oplossing en het wekt be- 
paald geen vertrouwen bij de 
toekomstige gebruiker. Je kunt 
bijvoorbeeld SHIFT en 
RUN/STOP intikken en op die 
manier toch nog uit het pro- 
gramma stappen. Een andere 
manier om een en ander te rege- 
len is de volgende: 

10 INPUT ”NAAM 
AUB*CHR$(157);CHR$(157); 
CHR$(157)"’; AS. 

In plaats van de cursor ver- 
schijnt hierbij een knipperende 
ster. Dat kan men dan laten 
volgen door een regel als: 

20 IFA$ =""*”THEN”CHR$ 
(145); CHR$(145)"’:GOTO 10 
dan wordt door het aanslaan 
van alleen de RETURN- 

toets ook een ster in A$ 

gezet. 


FIG 1 INPUT SUBROUTINE 


Zelfs dit is nog gevaarlijk, want 
de gebruiker kan nu nog met 
zijn cursor over het hele scherm 
gaan en de zaak grondig in de 
war sturen. 

Een mogelijke oplossing is het 
gebruik van een routine als in 
afbeelding 1. Die lopen we 
straks regel voor regel door, 
maar hier is eerst een korte ver- 
klaring van wat het program- 
maatje allemaal kan. 


Met deze routine kan de gebrui- 
ker slechts tekens met een Ascii- 
waarde (of misschien kunnen we 
beter spreken van Comscii- 
waarden) beneden de 9% invoe- 
ren. Dat betekent dat de cursor- 
toetsen de zaak niet in de war 
kunnen sturen. De shift-toets 
kan niet samen met een ander 
teken worden gebruikt. En als 
we het later nog eens doorlopen 
dan blijft het programma han- 
gen op een regel met een null- 
string. 

Regel zes maakt het onmogelijk 
de shift en de Commodore toets 
in combinatie met een ander te- 
ken te gebruiken. Met CHR$(9) 
maak je het gebruik weer moge- 
lijk. De NOW WHAT-prompt 
wordt geprint door regel 10. 
Het laatste deel van de regel 
stuurt de subroutine naar het 
besturingsdeel van het program- 


printchr(8)chrs(147)echrsC158)shiftd/<spatiedfl 


rem commodore en shift toets uitschakelen{<shiftd/<spatie>dd 


poke53280,0:poke53281,0:poke53272,23éshiftd/Cspatie>82 


rem beeld- en randkleur zwart, 
“zsgosub6OOOOLshifth/<spatie>70 
ifcm$="Klaar"thenprintchr$(147}"einde“:endéshiftd/{spatied79 


10 print”wat nu 
12 


15 printem$:gotol0<shiftd/<spatied0e 


60000 
60002 
60004 
60014 
60015 
60016 
60017 
60018 
60020 
60022 
60024 
t>/<spatie)37 


rem * 


input subroutine 


ifz=1l3andzlthenprint” 


60026 goto600l5<shiftd/éspatie>2b 
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rem Kk h RARA RARA RARA AAA KAAK AK CShifLD/<spatied2f 
x<shift>/<spatieddb 
vem kkk AAKAA KKK CShiftd/<spatied2b 
emn$=""trem string leegmaken<shift>/<spatiedfb 
printchr$(18)chrs(32)dchrsli4sdlehrs(157)sshiftd/Sspatied2f 
getz$:ifz$=""then600l6<shiftd/<spatiedae 
z=asc{z$):ifzdI5then60O01l6<shiftd/{<spatied0a 
zl=lentem$d:ifzl>2Othen6O0022<shiftd/<spatie,51 
ifz>3lthenem$=cm$tz$sprintz$ss:goto600iS5<shift»/<spatiedSa 
“sreturn<shiftd/{spatiedee 
ifz=2O0andzlthencm$=left$Ctem$,.zl=-1d:printz$s:srem een teken verwijderen<shif 





maatje. Regel 12 is een optie, 
regel 15 print uit wat was inge- 
tikt om dat te laten zien en gaat 
terug om iets anders in te kun- 
nen voeren. Onze commentaar$ 
CMS is in regel 60014 gelijk aan 
nul gesteld. Vergeet in regel 
60015 niet de : want die is heel 
belangrijk. Regel 60016 is een 
rechttoe-rechtaan GET-lus die 
wacht tot er een toets is inge- 
drukt. De Ascii-waarde van die 
toets wordt gecheckt in regel 
60017. Als de waarde groter is 
dan 95 willen we hem niet ken- 
nen en gaat het programmaatje 
weer naar regel 60016. Wilt u 
alleen cijfers invoeren dan is dit 
programmaatje op deze regel 
aan te passen. Regel 60018 
checkt de lengte van de string 
en als die groter is dan 20 dan 
gaat het door naar regel 60022. 
Ook deze grens kan variabel 
worden ingesteld. Als de Ascii- 
waarde groter is dan 31 voegt 
regel 60020 de tekens toe aan 
onze INPUT-string CM$ en 
print de tekens op het scherm 
voor hij teruggaat naar regel 
60016 om meer te vragen. Als 
de Ascii-waarde 13 is doordat 
slechts op de return-toets is ge- 
drukt, constateert die regel dat 
de lengte van de string ZL gro- 
ter is dan ZL, is dat het geval 
dan wordt er een spatie ge- 


grote en Kleine letters{<shiftd/<spatieddd 





print en hij gaat uit de subrouti- 
ne, Dit is een algemeen routi- 
netje dat makkelijk aan de ver- 
schillende eisen aangepast kan 
worden. U kunt ook de functie 
van de stoptoets weghalen en 
dat is de enige manier om deze 
routine te onderbreken. Dat 
gaat door POKE 808,239 alles 
wordt weer gewoon na 


POKE808,237, 


Een waarschuwing: doe dit niet 
voor u er zeker van bent dat het 
programmaatje feilloos loopt. 
Er is niets vervelender dan tien- 
tallen wijzigingen te maken aan 
een programma en dan te mer- 
ken dat je de routine niet kunt 
opslaan doordat je niet ín het 
hangvrije programmaatje kunt 
komen. 


BURGER- 
PROBLEMEN 
Een bekende fout in program- 
ma’s is de volgende: 

10 PRINT ”NOG EEN 
SPEL?(J OF N) 


FIG 2 MENU SELECTIE 


20 GET A$:IF A$="””THEN 
20 

30 IF A$=”J’THEN 
1000:REM NOG EEN KEER 
40 SYS64738:REM RESET DE 
MACHINE 


De programmeur heeft aangeno- 
men dat de gebuiker door het 
feit dat hij geen J intikt niet 
verder wil gaan met het spel. 
Maar het is maar al te gemak- 
kelijk om de verkeerde toets in 
te drukken en dat heeft dan ver- 
velende gevolgen. Dat wordt 
voorkomen door de regels: 

40 IF A$ = ”N” THEN 
PRINT ”DAG”’: END 

50 GOTO 20 

Een andere fout die wel eens 
wordt gemaakt, is dat in pro- 
gramma’s met zogenaamde 
hires-beelden de shift- en de 
Commodore-toets niet buiten 
werking worden gesteld. Dat 
leidt vaak tot onbedoeld komi- 
sche plaatjes. Rechttoe rechtaan 
PRINT CHR$(8) in het pro- 
gramma voorkomt deze ellende 


en met CHR$(9) is de toestand 
weer normaal. 

Het is vaak mogelijk een getal 
in te voeren als de machine 
tekst wil en omgekeerde. Listing 
twee zorgt voor een menu en 
daarmee is ook dit probleem 
opgelost. Het is een algemeen 
programmaatje en kan aan bij- 
na alle persoonlijke behoeften 
worden aangepast. Het doet in 
principe niets tot er een speciale 
toets wordt ingedrukt. Als dat 
gebeurt zorgt hij dat het betref- 
fende deel van het programma 
wordt uitgevoerd voor hij weer 
in wordt geschakeld. 

De kleine probleempjes uit de 
wereld helpen voor je de grote 
problemen te lijf gaat, maakt 
niet alleen het schrijven van 
programma’s makkelijker, maar 
het zorgt ook dat de program- 
ma’s er gedegen en professio- 
neel uitzien. De listings zoals ze 
hier staan zijn specifiek voor de 
Commodore 64, maar ze kun- 
nen gemakkelijk voor andere 
machines worden aangepast. 


6 printchr$(8)chr$(147dchr$C1i5elshiftd/Cspatied6f 


7 rem commodore en shift toets uitschakelen<shiftd/{spatieddd 
8 poke53280,0:poke53281,0:poke53272,23shiftd/{éspatie>82 


9 rem beeld- en randkleur zwart, grote en Kleine letters<shiftd/{<spatieddd 
rem start van het menu<shift>/{spatiedd6 

’1’"&shift>/{Xspatiedb8 
’2’"<shift>/<spatieddc 
’3’"Sshiftd/<spatiedf2 
?4’"<shift>/<spatiedfd 
’3’"<shift»/&spatiejeg 
’6’"<shift>/{spatiedef 
<shift>/éspatiedfG 
’8’"<shift>/{éspatied8f 


10 
20 een 
twee 
drie 
vier 
PjE 
Zes 


print“optie 
print”optie 
print” optie 
print'optie 
print optie 
print"optie 
print“optie zeven 
print”“optie acht 
100 print"beeindigen 
120 
130 
135 
140 
1995 
1996 
1997 


rem X 


menu=selectie 


:druk 
:druk 
:druk 
‘druk 
:druk 
:druk 
:druk 
:druk 


op 
op 
op 
op 
op 
op 
op 
op 


sjen 


:druk op ’b’"{<shiftd/éspatiedb6 


print:print:print”maak een Keuze uit het menu”{<shiftd/<spatiedcf 
gosub2000<shift>/{<spatie>0d 
forx=itol00O:nextéshiftd/éspatiedc0 
goto6{Xshift>/éspatie»33 

rem KkKAAAARAA AA AA AAA AA AA AAA KK KAAK ECShiftd/Cspatied43 
x(shift>/éspatie>7e 
rem Kk kde Cshiftd/Cspatied45 


2000 
2001 
2002 
e>31 
2004 
2006 
3000 
4000 
5000 
6000 
7000 


fori=ltolO:geta$:next:irem toetsenbuffer leegmaken{éshiftd/éspatieddf 
geta$:ifa$=""then200l:rem wacht op toets{<shiftò/{<spatie>6a 
ifas="b"thenprintchr$(147)"tot ziens":endsrem einde programma{shift»/{spati 


z=asc(las):ifze4Sorz56then2000éshiftd/{éspatied3l 
onz-48goto3000,4000,5000,6000,7000,8000,9000,10000Sshift>/<spatied2b 
print"optie een gekozen":returnéshiftd/<spatiedc0 

print”"optie twee gekKozen“:return<shiftd/{<spatie»9l 

print"optie drie gekozen“:return<shiftd/<spatiedbc 

print"optie vier gekozen"sreturnéshiftd/{spatied>52 

print”optie vijf gekozen":sreturn<shiftd/{spatied6d 

8000 print"optie zes gekozen"sreturn<shiftd/{spatied2e 

9000 print'optie zeven gekozen":returnéshift>/<spatie>74 

10000 print”"optie acht gekKozen":returnéshift>/<spatiedld 
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Het beste uit POSTBUS 9194, De programma's die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De propre bij voorkeur inzenden op schijf of cas- | 
sette, zodat we zeker weten dat ze 'lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
besturingstekens zijn voorzien. De beste inmman uit deze rubriek kunnen in anmeeing komen om door COMMODORE DOS 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


ADRESSENBESTAND 
Een bijdrage van M, Iedema uit ma werkt op zich erg leuk. De NOTA BENE 


Dokkum die door onze listing- adresgegevens worden in de 

redacteur echter danig is bijge- DATA-regels vanaf regel 10000 Alle programma’s op deze en de volgende pagina’s zijn voor- 

werkt. Vooral de presentatie op in het programma bewaard, ter- zien van onze checksum. Die is te herkennen aan het voor- 

scherm en printer hadden enige wijl het aantal in regel 170 voegsel (shift)/(spatie). Deze twee woorden moet u dus niet 

verfraaiing nodig. Het program- wordt bijgehouden. intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
tiebalk in te drukken. Op het scherm ziet dat er uit als een 
gewone spatie. Daarna voert u het feitelijke controle-getal in. 
Het checksum-programma, dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
u in Commodore Dossier 4. 


rem in regel 170 begin nr voor data’s{<shiftd/<spatiedd6 
:<shiftd/<spatied2e 
poke53281,0:poke53280,O:printchr$(147dehrs(17)<shiftd/<spatiedb2 
printchr$(8)chr$(142)tab(1l2)"adressen bestand"{<shiftd/{<spatied45 
printtab(12)chr$(28)" kknkkkkkK KK KKK KK" Cshiftd/Cspatiedee 
printtabC1i2)chr$(17)chrs(159)" compax 64"<shift>/<spatie>3d 
printtab(1i2)chr$(17)” tel: 

05190-3279"chr$(17dehrs(1i7dehrs17)d<shiftd/LspatiedZe 

80 fort=ltol000Ornext{<shift>/<spatiedlb 

SO printtabirojenrsC3lvenrs 18 “chr$C146)" benrs B 

"chr$(146);s<shift>/<spatied>97 

95 printtabC10)” SChrel 18) “chr$Cl4e)Sshift»/<spatie>57 

100 printtab(9dchrs(3idchrs(18)" "chr$(146d)" schrs CLB) 

“chr$(146)s<shiftd/<spatiedbl 

105 printtab9)" “chrs(18)" Tchrs146) “s<shiftd/éspatied42 

107 printchr$(18)" “chr$(146)” “chr$(i8)" “chr$(146)éshiftd/{spatiedd2 

110 printtab(8)chr$C3idchrs$(18)" "chrsC146)” “chr$(18)" “s<shiftd/{spatie 

>4af 

112 printchr$(146)" “Ychr$(18);s<shiftd/{spatiedc8 

115 printtab(8)" "chr$(146)" “chr$(18)* “chrs(146)" “chr$(18)" 

“chr$(146)<shift»/<spatied8d 

120 printtab(8)chr$(3idchrs(18)” "chr${146)" 

“chr$(18)5<shiftd/Cspatie>59 

125 printtab(8)" “echr$(146)” “chr$(18)” “chr$(146)" Sehr Che)” 

“chr$(146)<shiftd/<spatieda3 

130 printtab(8dchr$C3ldchr$C(18)" “chr$1i46)ìs<shiftd/spatieddc 

182 paint “chr$(28)chrs(18)” “chr$í146)s<shift>/<spatiedfO 

135 printtab(8)" “chr$(3idchr$(18)" "chr$(146)” “chrs(18)” 

“s<shift>/<spatieja6 

137 printehr$(146)" “chr$(18)” “chr$(146)<shiftd/{spatiedff 

140 printtab{9)chrs(3ldehrsC18)" “chrs(i4e)” “asshifts/<spatie,63 

142 printchr$(28)chr$s(18)” “ehr$(146)s<shiftd/<spatiedda 

145 printtabí9)® “chr$(3l)chr$(18)" “chrs(146)" hehrs 618) 

“s{shift»/{spatied21 

146 printchr$(146)” “chr$C18)" "chr$(i46)Sshiftd/Sspatiedc4 

150 printtabClO)chr$(3idchrs(18)” “chr$(146)" 

“chr$(18)5<shift>/<spatied8e 

155 printtab(10)” “chr$(146)” “chr$(18)” “chr$(146)<shiftd/<spatied46 

160 fort=lto3000r:next{<shiftd»/{<spatiedeg 

170 rm= 1OO20Sshift>/<spatie»34 

180 printchr$(147)dchr$C28dìchrs18)" adressen bestand";{shiftd/{spatiedb3 

185 print” door ’compax 64’ “<shift»/éspatiedlic 

190 printtab(8){shift>/{spatied95 

200 forx=Otol7:printtab(8)""tab(31)" “snext<shiftd/<spatie>30 

210 printtab(8)" "chrs(i9dechr$(1i7chrsCi7shiftd/Cspatie,17 

220 print'reeds ingevoerd:"(rm-10000)/10&shift>/{<spatie>7d 

230 printtabCiO)chr$(17)”" 1. invoeren”<shiftd/éspatied29 

240 printtab(1iOdehrs$(17)" 2. corrigeren"{<shiftd/<spatied20 
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250 printtab(lOdchr$(17)" 3. overzicht"{<shiftd/{spatied77 

260 printtab(iO)chr$(17)" 4, zoeken" <shift>/<spatie»dd 

270 printtabliOdchr$(17)” 5, saven bestand”{<shift»/{spatiede2 

280 printtabl1iOdchr#&(17)" 6. printen"<shift>/{spatie>89 

290 printtab{lOdchr$ 17)” 7. stoppen"<shiftd/{<spatiebdab 

300 printtab(i5)dchrs(i7dchr$Cl7dechrsl18) "uw Keuze?"chr$(146)<shiftd/{spatied59 
310 poke198,0:wait198,l:getasgshift>/&spatiedf7 

320 ifa$="i"andabs{(frel0ddd250thend00lshiftd/{spatiedaë 

330 ifa$="2"then 760Xshift>/{spatie>b3 

340 ifas="3"then S560<shift>/{<spatiedae 

350 ifas="4"then 950{shift>/{spatiedac 

360 ifa$="5"then 680{<shift>/{spatie>99 

370 ifa$="6"then 1270<shift»/<spatie>ba 

380 ifa$="7"thenprintchr$(ti47)dchr$(28)"een ’compax 64’ 
produktie"{Xshift>/<spatie>3b 

381 printchr$(29)chrst2IlechrsC17)” dokkum Ce) 1984" :printrsendishiftd/{spatied49 
390 goto31l04shiftd/<spatie>d3c 

400 printchr$C(147)chrs$C3idechr$C18)l"invoeren’chr$(1i46dchrsC17}chrs(28l:nas=" 
"<shift>/<spatied8f 

410 input”naam 


"znassnas=nast” ses... “snas=left$(na$,16)<shiftd/éspatied65 

420 input”adres 

NECHSEENSSCOHSH" „aaan sevcee"ten$=left$(cn$,16)Sshiftd/<spatied3b 

430 input”p.codetw.pls. 

WIESSIESGESSE" eneen ee eee “:ts$=left$(ts$,16)<shift>/<spatied3a 

440 input”telefoon nr... 

“SOpS OPS sOopS te ete sene ie ten “zop$=left$(lops,i6d<shiftd/Cspatie>58 

450 printehr$C3idchr$C17dechrsl17)dechrsl18) "return als invoer ok."<shiftd/{spatie 
>06 


460 printchr$(18)"voor correctie druk op <shift>/<spatie>84 

470 geta$<shift>/{<spatie>l3 

480 ifa$=chr$(13}then 51OSshiftd/<spatiedea 

490 ifas="then 400Xshiftd/<spatied7a 

500 goto47OX<shiftd/{spatied4f 

510 printehr$Ci44dehrsli47dehrsti7dechrsCti7dehrsC17)s<shiftd/S<spatiedde 
515 print“ 170rm="rmtiOéshiftd/{<spatie>38 

520 printrm"data"na$”,"cn$”","ts$","“op${<shift>/<spatiedaa 

530 printrm+10"datak,k,k,x"Cshift>/Cspatied0l 

540 print”"runi70"chr$(19){shiftd/Cspatied36 

550 poke198,4:forx=Oto3:poke63ltx, 13:inextrendéshift>/éspatied2a 
560 printchr$C(147)echrs(18)”overzicht”"<shift>/<spatiedd2 

570 printchr#(17)"druk op spatie voor vervolg”chr$(17)Xshift>/éspatie>fb 
575 print”"terug naar menu met x”"chr$(17)<shiftd/{<spatiedd4c 

580 printchr$(30)chrsC18)"naam/adres/w.pls./tel.nr. 
"<shift>/<spatiedci 

590 readnas,en$,ts$,ops<shiftd/<spatiedfd 

600 ifna$="x"then650<shiftd/<spatiedf6 

610 printnas” “ens” “ts$" “op$<shiftd/<spatiedc3 

620 geta$:ifa$="X"thenl70shiftd/{spatied77 

630 ifas<>” “then620<shiftd/<spatie>2b 

640 goto5SOXshiftd/{<spatied37 

650 printchr$(3i)chrs(18)"einde overzicht,“s<shiftd/{spatied2c 

651 print”"druk op return voor menu”chr$(19)<shiftd/<spatiedd4 

653 geta$:ifas{<>chr$(13)then6534shift>/{<spatiedce 

670 runi7OXshiftd/{<spatied20 

680 printchr#(147)chr$(18)”"saven bestand"<shiftd/{éspatie>2c 

690 print”"spoel bandje terug!”<shift>/<spatiedla 

700 printchr$(17)"druk op return als Klaar"chr$(17){<shift>/éspatie)31 
710 geta$:ifagOchrsCi3)}then710<shift>/<spatie>83 

720 input”naam bestand";sa$:printchr$(5){<shiftd/<spatied31 

730 saveasXshiftd/<spatied29 

740 runéshiftd/{spatied6c 

760 printchr$(147)cechrst18)”"corrigeren"<shiftd/{spatied46 

770 printechr$(30lechrst1i7) "welke naam “echr$(17)4shiftd/éspatied2Ze 
780 inputg$:i=9990Lshiftd/Sspatied 21 

790 readna$,cn$,ts$,op$:i=i+10€shiftd/<spatied87 

800 ifnas="x"thenprintsgoto650<shift>/{spatieda5 

810 ifg$=left$(na$,len(g$))then830Xshiftd/<spatied80 

820 goto790Xshift>/Sspatie>80 

830 printehr$(147)echrs(18)"oude naam? adres. w.pls. tel. nr. 
"<shiftd/<spatied8e 

831 printna$” "cn$” “ts$” "op$Xshift>/<spatie»9f 


840 print" “chr$(18)"nieuwe naam?":print® “na$éshift>/{spatied8c 
845 printchr$C(145);:inputna$:snas=left$(nas,16)<shiftd/<spatieded 
850 print” “chr$(18)"adres “sprint” “en${<shiftd/<spatiedec 
855 printchr$C145)srinputen$:en$=left$(cen$,16)<shift>/<spatiekfc 
860 print” “chr$(18)"p.codetw.pls.“:print” “ts${Xshiftd/éspatiedc9 
865 printchr$C145)ssinputts$sts$=lefts(tss,16)Áshift»/<spatiedc0 
870 print“ “chr$C18) tel, ne. “sprint” “ops$<shift»/{spatie>ca 
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875 printchr$(145);s:inputopS:opS=leftS(opS, l6){<shift)/{spatiedd2 

880 printchrs(17)echrst3idehrs(18) druk op return als ok"<shift»/<{spatie>66 

890 printchr$(18)”"corrigeren druk « “chr$(i46dchrs(28)shiftd/<spatie>dZa 

900 getassifas="x"then830<shiftd/<spatied93 

910 ifastichrsll3lthenIOOlshiftd/{<spatied3b 

920 printchrs(158)chrs(147dehrs(17)dehrst17)Ilehrs (17); Lshiftd/Lspatiedf 7 

925 printi”data”na$”","en$”","ts$”","op$<shiftd/<spatied68 

930 print*runi70"chrs(1i9)<shiftd/<spatied89 

940 poke198,3:forx=Oto2:poke63l+K,13rnextsend<shift>»/<&spatieda7 

950 reméshiftd/<spatied3a 

960 printehrs(147dehrs(18)" zoeken" <shift>/<spatie>71 

970 printehr$(30dehrs(17)”"op 

“echr$(18)"n"echr$(146)"aam,”“chr$(18)"a"chr$(146)”"dres"s{<shift>/<spatied3f 

975 print” of “chr$(18)"t*chr$(l46d"el.nummer"{<shiftd/<spatied19 

980 geta$:ifas="n"thenll00{shiftd/{spatie>9c 

990 ifas="a"thenli90Xshift>/{spatiedbGe 

1000 ifa$<d"t"then980<shift»/<spatiedch 

1010 print:input”“tel nr. “sg$<shift>/{spatiedc0 

1020 printchr$(147)dehrsCi8)lechrs(28)"tel.nr./adres/w.pls./naam 

"{shift>/<spatie>85 

1030 readna$,en$,ts$,op$:ifnas="x"then650<shift>/<spatie>25 

1040 

foraa=Otolen(lop$)d-len(g$):ifgs=midsCops,aati,lentgs)dthent070Xshift>/<spatie>d4b 

1050 next<shiftd/<spatie>9c 

1060 goto1030<shiftd/{spatiedab 

1070 printop$” “cn$" “"ts$" “naS<shift)/<spatie)89 

1080 geta$:ifas<}” “theni080Xshiftd>/{<spatieda0 

1090 gotol0304shift>/{spatiedcd 

1100 print:input”naam"sg${<shiftd/<spatie>35 

1110 printehr$(147)chrsCi8dechrsC(28)"naam/adres/w.pls./tel.nr. 

“{shift>/<spatied28 

1120 readna$s,cn$,ts$,op$:ifna$="x"then650<shift>/<spatie>43 

1130 ifg$=left$C(na$,len(g$))thenil6OXshift>»/{spatie>fa 

1140 gotoll20<shift>/<spatiedfb 

1150 

printchr$C147)chrsCi8)dechr$t(28ì "naam/adres/w.pls./tel.nr.";s<shift>/{&spatiedib 

LlSovprint” “:gotol120<shift>/<spatiedaf 

1160 printna$” "en$” “ts$" "op$éshiftd/{spatied2f 

1170 geta$:;:ifas<>" “thenli7O<shift>/<spatie>04 

1180 gotoil20&shiftd/{spatie>13 

1190 print:input”adres.";sg$<shift>/<spatie>b3 

1200 

printehr$C147)cechr$C(1i8)chrsC(28l"adres/naam/w.pls./tel.nr."s{<shift>/{<spatiedd5 

1205 print” “&shift>/éspatied08 

1210 readnaf,cn$,ts$,op$:ifna$="x"then650<shift>/{Xspatie>99 

1220 ifg$=en$theni240<shift>/<spatie>13 

1230 gotol210&shift>/<spatie>41 
printen$” “nas” “ts$"” “op$<shift>/<spatie>7f 
geta$:ifa$<>”" “thenl250<shift>/{spatie>75 
gotol210<shift>/{<spatie>63 
open4,4<shiftd/<spatie>dl 
printehr$(147)chr$C18)"printen"<shift>/<spatie>fd 
printchr$C(17)"op “chr$(18)*n"chr$(146)"aam"s<shift>/<spatied6b 
print” of “chr$(18)"a*chr$(146)"“dres"<shift>/<spatiedel 
geta$:ifas=""thenl300&<shift>/<spatie>16 
ifa$="n"thenl430<shiftd/Xspatiedaë 
print#4, “adres naam w.pls. tel. 

nr.”<shiftd/{spatie>8c 

1340 print#4," “<shiftd>/{spatie>99 

1350 printchr$(147)"adres/naam/w.pls./tel.nr."chr$(17){<shift>/{<spatie>da 

1360 readna$,cn$,ts$,op$:ifna$="k"thenclose4:goto650<shift>/<spatie>55 

1390 print#d‚,cn$” "nas" "ts8" "op$<shiftd/{spatieddl 

1400 printen$” “nas” “ts$" “"op$<shift>/<spatiedde 

1410 gotol360Xshift»/<spatiedOa 

1430 print#4, "naam adres w.pls. 

nr.”<shiftò/{Xspatie>28 

1440 print#4," "<shift>/<spatie>05 

1450 printechr$(147)"naam/adres/w.pls./tel.nr."<shift>/<spatie>f6 

1460 readna$,cn$,ts$,op$:sifnaf="k"thenclose4:goto650{<shift>/{Xspatiedbi1 

1470 print#4,nas” “ens” “"ts$" “op$<shiftd/<spatie>Ol 

1480 printnas” “en$" "ts$*" “op$éshiftd/<spatiedbe 

1490 gotol460X<shift>/<spatied5d 

10010 datak,k,*,x{shiftd/<spatie>92 
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COMMODORE DOSSIER AKTIEF PROGRAMMA'S 


Maandelijkse rubriek met listings van programma’s die waard zijn in uw prdaranma besta te worden opgenomen. 

Alle Khan zijn voorzien van een a zodat fouten bij het intikken vrijwel zijn uitgesloten. Het controle-getal 
wordt in elke regel vooraf gegaan EL ie]. Deze twee woorden moet u niet intikken, maar u moet tegelijkertijd de 
shift-toets en de spatiebalk indrukken. Op het scherm ziet dat eruit als een gewone spatie. Voor nadere informatie over het 


controle-getal, zie de handleiding elders in dit nummer. 


SOLO MISSION 


Bij dit spel gaat het er in het van Gremlin Graphics. Het spel terecht in de regels 1006 tot vaartuig respectievelijk sneller 
kort om allerlei obstakels te is ‘open’ geprogrammeerd zodat 2000. Toevoegingen in Basic en langzamer, met ; en / respec- 
omzeilen met een ruimtevaar- de gebruiker makkelijk kan in- _ zijn niet van invloed op de ma- _tievelijk omhoog en omlaag. 
tuig. Het werd geschreven door grijpen. Wie iets aan het spel chinecode. Met de C= toets en 

de professional Tony Crowther wil toevoegen kan bijvoorbeeld de shift-toets gaat het ruimte- 


SOLO MISSION 


printchr$(8)éshift>/<spatied6d 
data0,0,0,0,0,0,0,0{shift>»/{<spatiedbb 
data0,0,0,0,0,0,0,0<shift>/éspatie>bl 
data0,0,0,0,0,0,0,0{shift»/{spatie>87 
data10,15,0,58,191,192,2590,1914shiftd/Cspatieda8 
data232,250,170,170,58,170,170,2<shift>/Xspatieda8 
datal70,170,0,170,168,0,0,0éshiftd/{Xspatiede0 
data0,0,0,9,0,0,0,0sshift»/<spatiesff 
data0,0,0,0,0,0,0,0&shiftd/Xspatiedf5 
data255, 255, 250,255,255,255,255, 290 4shiftd/<spatiedeh 
datal70,85,85,85,0,0,0,0Xshift>/Xspatiedfa 
data0,0,0,1,23,2,169,1£4shift»/{<spatiedea 
datal41,25,208,141,18,208,141,26<shift>/<spatied13 
data208,169,0,141,14,220,169,16&shiftd/{spatied2f 
datai41,17,208,120,169,56,141,20shift»/{spatie>09 
data3,169,48,141,21,3,88,96{shift»/{spatied05 
datal69,l,l4l,25,208,238,21,484shift>/4spatie»35 
datal73,21,48,201,1,208,109,169%shiftd/<spatiedlf 
data21,141,24,208,169,86,141,18{4shiftd/éspatied17 
data208,169,0,141,22,208,76,98<shift>/éspatie>S5d 
data49,169,0,141,21,48,169,29<shift>/{<spatie>70 
datal41,24,208,169,0,141,18,208<shift>/{spatie>72 
datal73,20,48,56,237,19,48, 2014shift,/éspatie>70 
data16,176,10,24,105,8,141,20{<shift>»/éspatie>55 
data48,76,137,48,234,141,20,48<shift>/<spatie>be 
data76,49,234,0,0,0,0,0éshift>/{spatieda3 
data0,234,162,0,189,241,4,157<shift»/<spatieda0 
data240,4,232,224,240,208,245,162<shift>/<spatie>b9 
data0,189,225,5,157,224,5,189<shift>/{Xspatied8e 
data209,6,157,208,6,232,224,240<shift>/{spatie>81 
data208,239,76,203,48,224,240,208{Xshiftd/{<spatied9e 
data245,76,129,234,201,2,208,161<shift>/<spatie>de 
datai73,20,48,141,22,208,169,160{shiftd/{<spatie>d8 
datal41,18,208,169,29,141,24,208<shift>/{spatie>c0 
data76,129,234,169,23,133,250,169{shift>/<spatiedf9 
data5,133,251,162,0,160,0,1694shift»/éspatie>eg 
data0,145,250,165,250,24,105,40<shift>/<spatie>d8 
data133,250,165,251,105,0,133,251<shift»/<spatiedd3 
data232,224,18,208,232,169,0,14i<shiftd/<spatied15 
datal32,48,169,23,133,250,169,5<shiftd/<spatied30 
data133,251,174,131,48,165,250,24shift>/{<spatie>3d 
data105,40,133,250,165,251,105,0éshiftò/<spatied3c 
data133,251,202,16,240,169,1,160{shift>/{<spatied3e 
data0,145,250,162,0,165,250,24<shift»/<spatied27 
data105,40,133,250,165,251,105,0{shift»/éspatie)5a 
data133,251,169,38,160,0,145,250{<shift>/<spatie»50 
data232,224,5,208,232,76,56,49&shift>/<spatie»4c 
data0,0,0,0,0,0,0,0Xshift>/<spatie>de 
datal69,1,141,15,220,173,6,220&shift>/<spatied78 
data201,30,176,13,173,131,48,201&shiftd/éspatie>6l 
data0,240,3,206,131,48,76,95<shift»/<spatie>63 
data49,201,200,144,249,173,131<shiftd/{<spatie>8d 
data48,201,10,240,242,238,131,48{shiftd/{spatie>85 
data76,129,234,165,197,201,50<shift>/{spatieha8 
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COMMODORE DOSSIER AKTIEF PROGRAMMA'S 


data208,3,206,;1,208,201,55,208,34shift»/{Sspatiejab 
data238,1,208,238,6,220,238,6,220éshiftd/<spatie»83 
data173,6,220,41,31,201,1,176{shifth/<spatie>91 
data36,133,172,169,5,133,171,169{éshiftd/{spatiedda 
datal83,133,170,174,131,48,202éshift»/{<spatiedcf 
data240,14,165,170,24,105,40,133éshift>/<spatiekc5 
datal70,144,2,230,171,76,142,49éshift>/éspatiedc7 
datal69,53,160,0,145,170,76,1294shift>/<spatie>c3 
data234,20,20,105,105,105,20,20,0&shift>/<Sspatie>c6 
fori=12224tol2719:reada:pokei,a:tt=tttarnext{(shiftd/{spatiedf9 
ifttOb5459lthenprintchrs(147)"data error“:zendgshiftd/<spatie>25 
a=12307;srem speed<shift>/<spatieda0 
b=12308:rem pos/scroll4shiftd/Xspatie>8f 
c=12419:rem tunnel:yco-odgshiftd/<spatie>90 
d=53249:rem car yco{shift>/{spatiedcf 
e=53248:rem car xco<shiftd/<spatiedc0 
sc=O:pokee+21,0Osgoto9BOshift>/<spatied89 
poke53280,0:poke53281,12:printchrst152dehr$(147)}:poke53281,0:tis="000000"<sh 

ift>/<spatied40 

730 pokea,9:pokec,Gs:sys12310<shift>/{<spatie>75 

731 printchr$(19dechrst2IIechrst2Idehrst2IdehrsCli7denhrst1l7dlehrsl2slechrs29);s shift 

>/<spatied78 

732 printchr$(29dchrst2Idehrst2Idlehrst2IdechrsC2Idechrs(2dehrs(2I}echrs(29); shift 

>/<spatied7c 

733 printchr$(29)"topscore "hi<shiftd/<spatieda9 

741 printehr$C1i9dlehrsl2dehrs(2dechrst2IIechrs(17)dehrs17ds<shiftd/<spatied46 

742 forxx=lto27:printehr$(29)senextxxeiprint"tijd “rightsC(tis,3)<shiftd/<spatie 

>d4 

750 printchr$(19)}s:forxx=lto8:printehr$Cl7)s:inextxx<shiftd/<spatiedc4 

760 fori=Oto39:pokel224+i,38:pokel984+i,38:nextéshiftd/{<spatieda7 

770 pokea,O:poke54276,0:poke54277,3l:spoke54273,2:poke54276,129:poke54296,15<shif 

t>/{<spatieddc 

780 fori=Otoli:sprintchr$(29dcechrs2Idchrst2Idchrs( 2 "EEEKKKKEEKKK " snextishiftd/< 

spatiedfa 

790 pokee,100:poked,160:pokeet+21,1<shift>»/<spatie>74 

800 poke2040,191i:pokee+28,1<shiftd/<spatiedf2 

810 pokee+37,1:pokee+38,11l:pokee+39,14<shiftd/<spatie>dc 

820 fori=ltol0:5=53279:;:w=peek(s):next{shift>/{<spatiedcf 

830 t=peek(653)<shiftd/<spatied28 

840 ifpeek{s)then920<shift>/<spatiedcc 

850 ifti$>"OCOO6EO"then920Otshift>/<spatiedc8 

860 poke54276,O0:poke54277,21:poke54273,peeklad:poke54276,129Cshiftd/{spatiedea 

870 printchr$C1i9)chrsCl2dchrst2dechrst2Iechrs(1l7dehrs(17)s<shiftd/S<spatiedc4 

871 forxx=lto27:printehr$(29)srinextsx:iprint"tijd “right$(ti$,3):poke53286,14shif 

t>/<spatiedde 

880 sc=sctpeeklal:printchrs(i9dehrs$(17dlechrsCli7echrs(5}” secore"ssc{shiftd/{spatie 

>34 

890 ift=ithenifpeek(a)<6thenpokea,peekCadti<shift>/<spatie>da 

900 ift=2thenifpeek(a)bOthenpokea,peek(a)d-léshiftd/{spatiedb2 

910 goto83OXshift>/<spatie>3f 

920 pokea,O{shift>/{<spatied51 

930 poke53274,0:poke788,49:poke789,234:poke56334, I<shiftd/<spatieda3 

940 printehr$(147):poke53248+24,21&<shiftd»/éspatieddd 

950 poke54296,15:poke54276,O:poke54277,3l:poke54273,140:poke54276,129Xshiftd/sp 

atiedOf 

960 fori=lto50O0O:pokee+21,OCshiftd/{spatied44 

970 ifschhithenhi=sc{<shift»/{<spatiede6 

980 afCil=chr$Ci47)+chr$(5+"solo mission":poke53280,0:poke53281,O:rprint<shiftd/ 

<spatiede6 

990 asC3l=chr$C17dtehrs$(156}+"voor cbm 64" :poke53270,200:poke53265,27<shiftd/<sp 

atied75 

1000 ast(4d=chr$C17)+chrs$C(156)+"door tony crowther:;gremlin graphics"<shift>»/{<spat 

ied7c î 

1010 te$=chr$(17)dtchr$C158)+"toetsen "+chr$(18)+4+";5"tchr$(146)<shiftd/<spatie»95 

1015 a$(5)=test" & "+tchr$(18)+"/"+chrs(146)+t" op & neer"{<shiftd/<spatie>ge 
as(6)d=chr$(17)tchr$(158)+"e= toets & shift langzaam & snel"{éshiftd/{spatie 


as (7)=chr$(17)+chr$(31}+" topscore ="+tstr$(hidtshift>/{spatied97 
as(B)=chr$C17)dtehrsl3ll+" jouw score ="+tstr$(scdhshiftd/<spatiedf3 
as(I=chr$(1T7I+chrs(28)}+" druk op Lspatied om te spelen”"{shiftd/{spatiedcO0 
as(2d=chr$(5)+"EEEEEEEEEEEE" S<shift>/<spatie>9d 
fori=lto9:forjs=Itolen(ascCijdsshift>/{Sspatiedc5 
printmidstasCid,j1d" "ehr$C1Bb7ds:forkstto4inextinextiprint® “rnextGshift>/ 

<spatie>97 

1090 geta$:ifas{d" “theni090Xshiftd/{spatieddb 

1109 sc=O:goto720S<shift»>/<spatie>Sc 
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COMMODORE MARKT 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en ner van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 
als gevolg van onduidelijke opgave. 

Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 


IK BIED SOFTWARE AAN 

® Te koop of te ruil software voor de 
CBM-64. f 1, per stuk. Bel Jeroen na 7 
uur. Tel.05146-3284. 


® Voor Commodore: CP/M cartridge met 
schijf en gebruiksaanwijzing. Gloednieuw 
voor halve prijs f 250. Tel. 055-419641. 


© CBM-64 software te koop. f 2 per 
programma. Ook ruilen. Johan van Reede, 
Beethovenlaan 7, 1272 ED Huizen. Tel. 
02152-51316. 


® Software voor de CBM-64 op diskette, 
f 1, per stuk (exclusief disk). J. Boven, 
De Rozetuin 9, 9203 LP Drachten. 
Tel.05120-31349. Na 19.30 uur. 


® Software voor de CBM-64. Ik heb rand 
de 400 programma's (educatief en spel) 
waaronder Dallas Quest, Datamanager, To- 
pografie, Toy, Bizarre. Rob van Doorn, 
Prins Bernardstraat 5, Waddinxveen. Tel. 
01828-14162. 


® Te koop of te ruil software voor de 
CBM-64. Stuur lijst of vraag lijst. Graag 
postzegel voor antwoord bijsluiten. Fam. 
v.d.Heyden, Postbus 346, Maarssen. 


©@ Bied aan Picasso-64 (cassette) f 35,—. 


het grafiekboek van de Commodore (Data 
Becker) f 17,50. H. Sanders, De Krim. 
Tel. 05247-1829. 


® Software voor CBM-64 ruilen. Stuur 
lijst naar P. Calle, Perim 335, 1503 GE 
Zaandam. Zoek tekstverwerker met ac- 
centen voor op CBM-64. 


IK ZOEK SOFTWARE 

® Wie heeft voor mij grafische adventu- 
res voor CBM-64 (Engelstalig). A.v.Dien- 

broek, Reijdersant 26, 8303 XN Emmel- 
oord. Tel.05270-97112 na 17.00 uur. 


® Gezocht voor de CBM-64: Quo Vadis, 
The hobbit. Eventueel ruilen. Tel. 
01158-16014. 


® Wie kan mij helpen aan een handlei- 
ding (eventueel fotokopie) van Vizawrite. 
Eventuele onkosten worden vergoed. Tel. 
030-780202. 


® Ik zoek database en spreadsheet voor 
Commodore 610 op diskette 170K. Put- 
zeis Luc. Hoegaardenstraat 84, 3000 
Leuven. 


@ Wie kan mij helpen aan programma’s 
op cassette of papier voor de CBM-64, 
eventueel tegen redelijke vergoeding. A.H. 
Mouthaan, Hoornstraat 19, 5402 MN 
Uden. Tel. 04132-50204. 


IK BIED HARDWARE AAN 

® Bied aan voor Vic-20 Forth cartridge 
+ 16KRam (schakelbaar) + Forth boek 
+ 2 slots expansiebord. f 200, Tevens 
veel uitbreidingen en spelletjes. Marco 
Hankel. Tel. 010-772839. 


® Vic-20 vraagprijs f 300, In prima 
staat + veel software + boeken + cas- 





setteinterface. reden: aanschaf groter 
systeem. Tel. (na 18.00 uur) 
08373-16250. 


® Aangeboden CBM-64 + drive + prin- 
ter + cass. + 2 joystick + CP/M incl. 

Z80 + Simons Basic Rom + 38 disket- 
tes met diverse software inclusief hand- 

boek en reference guide. Totaal f 2850, 
Tel. 04192-12899. 


® Bied aan Commodore 8050 diskdrive. 
een jaar gebruikt. 2 x 500 Kb. f 2000, 
Tel. 023 — 310747 (na 18.00 uur). 


® Bied aan ZX 81+-cassetterecorder+TV 
31 em.+toetsenbord+software en boe- 
ken. t.e.a.b. Tel. 01684-3782. 


® Bied aan Vic-20+ recorder + software + 
boeken. Prijs f 400,—. Tel. 038-215884, 


® Te koop aangeboden Commodore 64 
(6 maanden oud), z/w monitor amberkleu- 
rig (2 maanden oud), software ter waarde 
van f 1000,—, datarecorder, joystick, boe- 
ken, tijdschriften. Prijs f 1500,—. 


© Vic-20+cass.+8K+gebruiksaanwij- 
zing+boek voor programmeurs. Prijs 

f 450,—. Tel. 02503-30556. Na 18.00 
uur. 


® Bied aan speedloader voor diskdrive 
1541 voor CBM-64. cartridge f 65,—. Ni- 
co Vanlijperen, Avenue Concordia 9B, 
3062 LA Rotterdam. Tel. 010-330230. 


BON 


Amsterdam. 


Aankruisen a.u.b. 


Ik bied LJ) hardware 





aan software 














IK WIL RUILEN 

® CBM-64 software te ruil (cass.), 
ca.200 titels, Stuur uw lijst naar: Hans 
Huttner, Puecinihof 635, 

5049 GX Tilburg. 


® Ik heb meer dan 500 programma's op 
disk om te ruilen. Zoek manuals Geopoli- 
ties, Tigers in the snow etc. J. Schilder- 
mans, De Paepestraat 51A, 2410 Heren- 
tals (België). Tel. 014-221471. 


® Ik heb plusminus 300 programma’s 
om te ruilen. L. de Blauw, Gl.Fonteij- 
nestraat 6, 8701 EL Bolsward. 
Tel.05157-4228. 


® Ik heb plusminus 300 programma’s en 
wil deze ruilen tegen andere CBM-64 pro- 
gramma's. L. de Blauw, Cl. Fonteynestraat 
6, 8701 EL Bolsward. Tel. 05157-4228. 


© Stuur mij een bandje met 20-30 goe- 
de CBM-64 programma’s en u ontvangt 
eenzelfde bandje terug. B. Deen, 
Breedstraat 90, 1601 KE Enkhuizen. Tel. 
02280-13660. 


® CBM-64 club ruilt programma’s. Bezit 
zelf 1000 programma’s. Schijf of bel naar 
J.L. van Loo, Kabouterweg 39, B-8460 
Koksijde. Tel. 00352-058511669 na 
17.00 uur. 


® Ik wil software ruilen. Ik heb 800 pro- 
gramma's. Peter van Gemert, Eglantier 10, 
6081 CJ Haelen. Tel. 04759-2231. 


® Tekening model-sleepboot, inclusief 
zender, geheel vaarklaar. Gezocht CBM 
803 printer of 2M All Mode set. 

B. de Graaf, Schagerbrug NH. Tel. 02247- 
1926. 


@ Commodore-64 software te ruil ge- 
vraagd. Stuur lijst naar H. Buikema, Fult- 
semaheerd 54, 9736 CR Groningen. 


® Software ruilen voor CBM-64, ca. 400 
programma’s. Stuur je lijstje naar: P. Her- 


Gratis opname in de rubriek COMMODORE MARKT 
Inzenden aan: COMMODORE DOSSIER, Rijnsburgstraat 11, 1059 AT 


In een voldoende gefrankeerde enveloppe. 
Gerubriceerde kleine standaardadvertenties voor lezers. 
Uitsluitend voor particulieren.* Geen afbeeldingen of tekeningen. 

Verzoek om plaatsing van onderstaande teksten in de eerstvolgende GDA, 
mits ruimte beschikbaar is. 






























L] hardware 0 Ik wil ruilen 
L] software Overigen 


mens, Baaksstraat 21, 6369 HG Simpel- 
veld. Tel. 045-443131. 


® Spellen te ruil voor de CBM-64. Onder 
andere Zaxxon, Ghostbusters, Impossible 
Mission, Beach Head en Solo Flight. Bel 

02510-38906 en vraag naar Fulco. 


® Wie wil met mij spel- en gebruikspro- 
gramma’s ruilen op cassette voor de 
CBM-64. W. Leschot, Tilanusstraat 4B, 
1091 BH Amsterdam. 


IK ZOEK HARDWARE 


®@ Zoek Commodore 64 of Spectrum 
48K, eventueel met randapparatuur en 
software. aanbiedingen alleen ’s avonds 
na 19.00 uur. A. Gans. Tel. 050-719477. 


@ Zoek 1541 diskdrive tegen redelijke 
prijs. V. Leeuwen. Tel. 075-164902 na 
19.00 uur. 


®@ Gevraagd: Kleuren TV, maximaal 51 
em-scherm. Prijs tot f 300,—. J. de Vries, 
Frans Leharpark 35, 5144 TD Waalwijk. 
Tel. 04160-39089. 


@ Wie heeft voor mij een goede diskdri- 
ve 1541 te koop. Prijs tot f 500,—. Aan- 
biedingen en prijsopgaven naar M. Boks- 
hoon, Zonneoord 229, 2544 KE Den 
Haag. Tel. 070-673492. 


® Zoek grafische printer voor CBM-64, 
aanbiedingen en prijsopgaven naar Herbert 
de Jong, Kerklaan 17, 2471 AK Zwam- 
merdam. Tel. 01726-13511. 


@® Zoek kleurenmonitor en diskdrive voor 
CBM-64. T. van der Veer, Grote Stern 
125, 3181 SE Rozenburg. Tel. 01819- 
14971. 


® Zoek CBM-64 en recorder voor begin- 
ner. Tel. 078-184903. 
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*teksten van commerciële aard worden geweigerd voor opname. 


A.u.b. slechts 25 letters per regel, incl. leestekens en woord-tussenruimte van telkenmale 
1 hokje. Schrijf a.u.b. duidelijk. Er worden uitsluitend opdrachten uitgevoerd, wanneer er 
sprake is van volledige adresopgave en/of tel. vermelding. 
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CLUBS 


Maandelijkse rubriek met de belangrijkste informatie uit de 


Commodore gebruikersclubs. 


6502 KENNERS BIJEEN 


Voor Commodore gebruikers 
die eens buiten de eigen kring 
willen kijken, kan de landelijke 
bijeenkomst van de KIM-gebrui- 
kersgroep interessant zijn. Deze 
gebruikersgroep staat ook be- 
kend onder de naam ‘De 6502 
kenners’. Tot die kenners mo- 
gen de Commodore gebruikers 
zich ook rekenen omdat de 6510 
die de CBM-64 gebruikt en de 
6508 van de Vic-20 vergelijkbare 
processoren zijn. De landelijke 


bijeenkomst van de 6502 ken- 
ners wordt op 16 maart gehou- 
den in het gemeenschapshuis 
’De zes gehuchten’ aan de Pa- 
penvoort 10 te Geldrop. Mocht 
u echter te laat naar uw postbus 
zijn gelopen om dit Aktief er 
uit te halen dan heeft u de dag 
gemist. Wellicht kunt u dan 
echter van de secretaris 
(08370-23646) vernemen wat ’de 
kenners’ eventueel voor u in de 
toekomst kunnen betekenen. 


BENELUX COMPUTERDAG ’85 


In de Leysdream evenementen- 
hallen te Roosendaal houdt de 
Roosendaalse Computer Club 
op vrijdag 19 en zaterdag 20 
april voor de vierde keer de Be- 
nelux Computerdag. Het is de 
eerste keer dat dit evenement 
twee dagen duurt en ook het 
vloeroppervlak van de beurs is 


Stichting Computer Hobbyisten 
Nederland (SCN) 
HOT NEWS 


Secretariaat: A. Brink, 

tel. 03450-16051 (ma-, di- en 
woensdag tussen 13.00 en 22.00 
uur) 

Voor inlichtingen over de regio- 
nale afdelingen kunt u zich 
wenden tot: 

Afdeling Zwolle: P.P.L. van 
Bijsterveld, tel. 038-548459, 


groter dan ooit: maar liefst 
5000 vierkante meter dit keer. 
De RCC is geen gespecialiseerde 
club, dus behalve Commodore 
computers zullen ook andere 
merken vertegenwoordigd zijn. 
Wellicht kunt u als Commodore 
gebruiker de andere aanwezigen 
nog wat leren. 


Afdeling Midden Nederland: H. 
Scheffer, tel. 03453-13775 
Afdeling Deventer: 

tel. 05700-50758/50759 
Algemene bijeenkomsten: 
tweede zaterdag van de 
maand in de scholengemeen- 
schap Centrum/oud-west, Jan 
van Galenstraat t/o nr. 14, 
Amsterdam. Vanaf april wor- 
den de bijeenkomsten gehou- 
den in De Meervaart, Osdorp- 
plein, Amsterdam. 


Vereniging voor de Gebruikers 
van Commodore-computers in 
Nederland (VCGN) 


Secretariaat: Ine van Teijlin- 
gen, De Brink 928, 2553 HT 
Den Haag, tel: 070-971851 
(van 20.00-22.00 uur, m.u.v. 
maandag en woensdag) 
b.g.g. 070-687924 of 
070-946156 


Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeeland: R. van 
Dijk, tel. 01180-25746 
Afdeling West-Brabant: P. 
Nelen, tel. 01640-51639 
Afdeling Midden-Brabant: W. 
Wils, tel. 01620-55634 
Afdeling Oost-Brabant: C. de 
Winter, tel. 04120-42054 
Afdeling Zuid-Limburg: J. 
van Mastrigt, tel. 043-476935 
Afdeling Zuid Holland-Zuid: 
D. van Riemsdijk, tel. 
010-501023 

Afdeling Noord Holland-Zuid: 
J.A. Dekker, tel. 02502-7968 
Algemene bijeenkomsten: 
laatste zaterdag van de maand 
in Rijswijk (Lodewijk Make- 
blijde College, H.R. Holstlaan 
2, 2283 HB). 
Afdelingsbijeenkomsten: 
Afdeling Zeeland: bij wijze 
van proef: 

zaterdag 9/3 overdag. De data 
van de overige bijeenkomsten 
zijn nog niet bekend. 

Afdeling West-Brabant: eerste 
zaterdag van de maand. 
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tel. 03 — 237 0120 
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Afdeling Midden-Brabant: 
derde zaterdag van de maand 
Afdeling Oost-Brabant: derde 
zaterdag van de maand 
Afdeling Zuid-Limburg: eerste 
zaterdag van de maand 
Afdeling Zuid Holland-Zuid: 
eerste zaterdag van de maand 
Afdeling Noord Holland-Zuid: 
eerste zaterdag van de maand 


PET-Benelux Exchange 
Secretariaat: Copytronics, 
Postbus 700, 7400 AS Deven- 
ter, tel. 05759-2211 

Voor inlichtingen over de regi- 
onale afdelingen kunt u zich 
wenden tot: 

Afdeling Zeist: tel. 05759-211 
Afdeling Nijmgen: tel. 
05759-22111 

Afdeling Haaksbergen: tel. 
053-766444 

Service Reparatie Centrum voor 
PET-leden: tel. 053-1766444. 
Algemene bijeenkomsten: 
Afdeling Zeist: eerste zaterdag 
van de maand 

Afdeling Nijmegen: tweede za- 
terdag van de maand 

Afdeling Haaksbergen: derde 
zaterdag van de maan 


HGC-Commodore-GOMPET gebrui- 
kersgroep 

Secretariaat: J.J. van Douwen, 
Couwenhoven 1203, 3703 VB 
Zeist, tel. 03404-59599 
Bijeenkomsten: 

Utrecht: zaterdag 23/3, 8/6, 
21/9 en 30/11 

Waddinxveen: zaterdag 

27/4, 6/7, 26/10 en 21/12. 


PRODUKTIE 


Smeets Offset (NBI) 
's-Hertogenbosch 


(c) Copyright 1985 by 

VNU Business Publications BV, 
Amsterdam, Londen. 

VNU Business Press 
Syndication BV, Amsterdam. 
Uitgeversmaatschappij Diligentia, 
Brussel. 


Niets uit deze uitgave mag 
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GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 







Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, BO 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 80 tekens per 
sekonde en de fluisterstilte onder het printen. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt 
overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand brother 
adres. Adviesprijs Ï 695,- EX, btw. Kspaenmmrnesramees hard 


BO N k Ik wil meer informatie over de HR-5. 


Naam: 











Postoode: —___________—_ Plaats: 
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Battery powered en netvoeding. 


brother, Brother International (Nederland) BV, 
® __Zanderij 25-27, 1185 ZN Amstelveen. Telefoon 020-47 4471" 








döfwsorld 


Het beste boekhoud. 
pakket voor de 64 ko 
nog géén 900 gulde 


Het wereldsucces van de Commodore 64 en de enorme belangstelling voor SoftWorld's 
professionele programmatuur voor deze Personal Computer zorgt voor een doorbraak! 
SoftWorld's complete boekhoudpakket FINAD 64 PLUS gaat voor f 899, (incl, BTW) 
over de toonbank … Géén geld voor dit superieure administratiepakket, dat tegemoet 
komt aan de eisen en verlangens van zelfs de meest professionele gebruiker. 

FINAD 64 PLUS omvat Grootboek, kolommenbalans, faktureren, debiteuren en 
crediteuren (met ouderdomsanalyse), aanmanen, rapporteren. U kunt het programma 
probleemloos gebruiken voor uw eigen bedrijf, maar óók de administratie voor derden 
ermee voeren! De lay-out generator stelt u in staat een perfecte eigen faktuurindeling te 
maken, ook op voorgedrukte formulieren. Vraag uw SoftWorld dealer om alle informatie! 














ALKMAAR, De Computer, 072-124216. AMSTERDAM, Computerteam, 020-7694094. BITS & CHIPS, 020-716992. Computer Collectief, 0220-223573. APELDOORN, 
Serva Computer, Business Center, 055-133770. BEVERWIJK, De Computer, 02510-10833. BERG EN TERBIJT, Haje Electronics, 04406-40138, (alléén COM-IN 64). 
BREDA, Indelec, 076-142333. DEN BURG, Van Wijngaarden, 02220-2695, Foto Video Nauta, 02220-2294. DEN HAAG, Vitex Computers, 070-6487353. 
Tefo-Lubbers, 070-886098. DORDRECHT, PC-SHOP, 078-311516. EINDHOVEN, Vogelzang, 040-447955. ENSCHEDE, Computerwinkel, Oost Nederland, 
0583-337296. ETTEN-LEUR, Colijn Data Systemen, 01608-22649. GENNEP, Veenendaal Computer Systemen, 08851-13334. GOES/KLOETINGEN, Colijn Data- 
systemen, 01100-14008. HAARLEM, Fa. van Zutphen, 023-321924. De Computer, 0239-310871. HEERENVEEN, Foto Brouwer, 05130-22401. HEERLEN, Vogelzang, 
045-716055. HENGELO, Hobbelink, 074-427275. HILVERSUM, Computerworld, 035-12633. HOUTEN, Veenendaal Computer Systemen, 03403-72796. 
MAASTRICHT, Vogelzang, 043-14169. MEERSEN, TV. Deusings, 043-642079. NIJMEGEN, Marveld Computing, 080-237219. OSS, Harense Smid, 04120-43244. 
ROTTERDAM, Computer World, 010-137823. Telecoder, 010-334242. Game World, 010-1337770. UTRECHT, Game World, 030-317355. VEENDAM, 

Schuur Veendam, 05987-18755. VROOMSHOOP, Het Kasregisterhuis, 05498-42811. ZEIST, Compute Zeist, 03404-25252. ZAANDAM, De Computer, 


075-3193207. ZALTBOMMEL, Foto Lux, 0180-2750, £ | ofl dJ Kn 
Zoektijd: 
2 seconden! 


SoftWorld's DATAMANAGER 64 programma is ontworpen voor het aanleggen van een eigen, 
professioneel geautomatiseerd archiefsysteem. Het invoeren van uw gegevens is kinderspel, 
evenals het weer terugvinden ervan! Op basis van sleutelwoorden kunt u uit alle ingevoerde 
gegevens (3800 records op één floppy disk) razendsnel de door u gewenste informatie 
zoeken en selecteren. De zoektijd bedraagt slechts 2 seconden! DATAMANAGER 64 is ideaal f 
voor ledenadministraties, patiëntenbestanden, platencollecties, bibliotheken, winkel- 
voorraden, kunst-en antiekverzamelingen, adresbestanden van leveranciers, afnemers, 
abonnees, enz. Afdrukken van lijsten en adreslabels is uiteraard probleemloos mogelijk. 
SoftWorld's DATAMANAGER 64 programma wordt geleverd als ROMpack, dat 
simpelweg achterin de Commodore 64 Personal Computer wordt gestoken. 

Voor dit opmerkelijke programma betaalt u toch niet meer dan f 299,- (incl. BTW). 









ALKMAAR, De Computer, 072-124216, AMSTERDAM, Computerteam, 9020-769494. BITS & CHIPS, 020-716992. Computer Collectief, 020-22357 APELDOORN, 
Serva Computer, Business Center, 055-133770. BEVERWIJK, De Computer, 02510-10833. BERG EN TERBIJT, Haje Electronics, 04406-40138, (alléén COM-IN 64). 
BREDA, Indelec, 076-142333. DEN BURG, Van Wijngaarden. 02220-2695. Foto Video Nauta, 02220-22904, DEN HAAG, Vitex Computers, 070-6487353. 
Tefo-Lubbers, 070-886098. DORDRECHT, PC-SHOP, 078-311516. EINDHOVEN, Vogelzang, 040-447955. ENSCHEDE, Computerwinkel, Oost Nederland, 
053-337296. ETTEN-LEUR, Colijn Data Systemen, 01608-22649. GENNEP, Veenendaal Computer Systemen, 08851-1 3334. GOES/KLOETINGEN, Colijn Data- 
systemen, 01100-14008. HAARLEM, Fa. van Zutphen, 023-321924. De Computer, 023-310871. HEERENVEEN, Foto Brouwer, 081 30-22401. HEERLEN, Vogelzang, 
045-716055. HENGELO, Hobbelink, 074-427275. HILVERSUM, ComputerWorld, 035-12633. HOUTEN, Veenendaal Computer Systemen, 03403-72796. 
MAASTRICHT, Vogelzang, 043-14169. MEERSEN, T.V. Deusings, 043-6420795. NIJMEGEN, Marveld Computing, 080-237219, OSS, Harense Smid, 04120-43244. 
ROTTERDAM, Computer World, 010-137823. Telecoder, 010-334242. Game Word, 010-133770. UTRECHT, Game World, 030-317355. VEENDAM, 

Schuur Veendam, 05987-18755. VROOMSHOOP, Het Kasregisterhuis, 05498-42811. ZEIST, Compute Zeist, 03404-25252. ZAANDAM, De Computer, 
075-313207. ZALTBOMMEL, Foto Lux, 04180-2750. 
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_ Omdat de Commodore personal com- 
puter deze omvangrijke werkzaamheden 
elke maand voor uw bedrijf kan doen. 

Omdat er meer dan 2000 programma's 
zijn die elke vorm van bureauwerk kunnen 
vereenvoudigen. 
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de boekhouding misschien ook andere kan 
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Commodore 
Daar wordt een mens wijzer van. 





